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لحد 


جس اال ال حب ال ې وجه خسگیچ اچ څې الله 


ان شاء الله سيكون هذا الكتاب الأصدار الأخير من الفريم ورك وبهذا نكون قد الممنا بالفريم 
ورك ولكن أريد منكم ان تقرأو الدروس بكل وضوح وبكل تركيز ودقه وأرجو ان تقومو 
بالتطبيق المباشر على كل مثال نقوم بتطبيقه ولا تنسخ الأكواد وتلصقها لأنك لو فعلت هذا لم 
تستفاد أبدا .. لابد ان تكتب الاكواد بيدك لتأخذ على مود الاكواد وتستطيع تطبيق آمثله وحدك 
بدون معلم . كل ماعليك ان شاء الله ان تقوم بقراءه الأمثله بدقه وتركيز وتقوم بالتطبيق المباشر 
فى نفس الوقت ولم تؤجل التطبيق لوقت أخر. 


اود أيضا ان الفت نظركم الى ماهيه الفريم ورك بكل وضوح واختصار 

بعض الطلبة او القارئين للجزء الأول من هذا الكتاب كان يراسلنا على الايميل وكانو يظنون ان 
هذا الكتاب يشر ح لغه السى شارب ... ولكن هذا ليس بصحيح نحن لم نقم بشرح السى شارب 
ولكننا نقوم بشرح الفريم ورك عموما ... باختصار ان مانشرحه هذا نستطیع تطبيه على 
الفیجوال نت والسی شارب نت والسى بلاس نت.... الخ 

(نستطيع تطبيقه على كل اللغات الدوت نت ) ولكن تختلف طريقه كتابه الأكوادرفى كل لغه عن 
الأخرى أى تطبيق هذه الأكواد فى بيئه السى الشارب متلا يختلف عن طريقه تطبيقها فى 
الفيجوال يختلف عن طريقه کتابتها فى السى بلاس لأن كل لغه تختص بطريقه كتابه للأكواد 
معينه فلايجوز ان نطبق بنفس الطريقه (اعتقد ان الكلام واضح ولا يشوبه شىء من الغرابه) 
ومانقوم بتطبيقه فى هذا الجزء من الكتاب والجزء الأول كان تحت بيئه الفيجوال نت 

ايضا اود ان انوه على أنه بعد هذا الاصدار ستتوالى الاعمال ان شاء الله وسنقوم باصدار كتاب 
أخر يشرح كيفيه البرمجه على الطريقه انحدıڎa Object Oriented Programing(O0OP)‏ 
ويتبع هذا الشرح مشروع البنك على طريقه الد 00۴ 

ادعو لنا بالتوفیق . 


ملحوظه!! 


هذه الأصدارات من الكتب مجانيه لوجه الله تعالى وغير مسموح ببيعها تحت اى ظرف من 
الظروف فهى لتعليم من لايملك حق التعليم او الكورسات . 


اذا استفدت من هذه الاصدارات قم بالدعاء لى ولوالدى 


الوحده الاولى :- 


ARRAY LIST 


هى نوع من انواع المصفوفات الكوليكشن تقبل ان تحمل جميع انواع الداتا سواء كانت 
تاريخ او رقميه او حرفيه وتختلف عن المصفوفه العاديه بعض اختلافات سوف 
تلاحظها عند شرح الأكواد ... لاحظ كيفيفه استخدامها. 


Imports System.Collections 
Module Module1 


Sub Main() 


Dim Array As New ArrayList 
Array .Add("He1l1lo") 

Array .Add("Im Captian Malek") 
Array.Add("Im, 22 Years Old") 
Array .Add (100) 

Array. Add (200) 
Array.Add(Array(3) + Array (4)) 


Console.WriteLine(Array(0) ) 

Console.WriteLine(Array(1) ) 

Console.WriteLine(Array(2) ) 

Console.WriteLine(Array(5) ) 

Console.WriteLine("Ssum {O0} + {1}= {2}", Array(3), Array(4), 
Array(5)) 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 
او لا قمنا باستيراد ال ءاام قبل الموديول وذلك لاتاحه استخدام Array List I‏ لأنها 
من lنواع‏ |آ Collection‏ 


Sub Mai n)) ثم قمنا بأستخدامھا تحت ال‎ 
Dim Array As New ArrayList 


ای قم بحجز متغیر بألاسم ھ۸۲۲ یکون من النوع tءااay٣A۲‏ 


ثم قمنا بأضافه بعض البيانات داخل المصفوفه اءأاره٣٣۸‏ ... بيانات من النوع النصيه مثل 
Hello , Im Captian Malek , Im 22 Years Old‏ 
وبعضها الأخر رقميه مثل 200, 100 


Array.Add("Hel1lo") 
Array.Add("Im Captian Malek") 
Array.Add("Im 22 Years Old") 
Array .Add(100) 

Array .Add (200) 


Array.Add(Array(3) + Array (4)) 


فكما قولنا ان هذه المصفوفه تقبل اى نوع من انواع البيانات فهى من النوع tء#زط0‏ الذى يقبل 
جميع انواع البيانات 
اذا فما هو معنى هذا الكود ؟ 


Array.Add(Array(3) + Array (4)) 


لقد سبق لنا ان وضحنا المصفوفات فى الجزء الأول من الكتاب وقولنا ان المصفوفه غالبا ماتبداً 
بالاندكس صفر .... فاذا كانت المصفوفه تتكون من اربع اجزاء .. اذا فهى تنتهى عند الرقم 3 
بمعنى اوضح ان كانت المصفوفه تتكون من 4 اجزاء اذا 


الجزء الأول يكون رقمه (صفر) و الجزء الثانى يكون رقمه (1) والجزء الثالث يكون رقمه(2) 
والجزء الرابع يكون رقمه (3) 


والأن تائ الى شرح هذا الكود Array.Add(Array(3) + Array(4))‏ 


نحن فی بدایه الکود قمنا بأضافه بعض البيانات داخل المصفوفه اذا فكم هى عدد البيانات التى 


Hello - |‏ ... ويكون رقم الاندكس له صفر كما اتفقنا 
|m Captian Malek - ۲‏ ... ویکون رقم الاندکس له 1 
Years 0d -‏ 22 | ... ویکون رقم الاندکس له 2 
٤‏ -100 ... ویكون رقم الاندکس له 3 
° -200 ن 4 
Array )3( + Array )4(-‏ ... ویکون رقم الاندکس له 5 


ونحن فى الكود أمرناه بجمع الاندكس 3 مع الاندكس 4 ... ليكون الناتج هور 200+100 = 
0 وهذا يؤكد لك انها تتعامل مع النوع الرقمى من البيانات 
فان كانت لاتقبل الانواع الرقميه كانت عرضت الرقم هكذا 100200 


فان امرنا الكونسول بطباعه النتائج هكذا 


Console.WriteLine(Array (0) ) 

Console.WriteLine(Array (1)) 

Console.WriteLine(Array (2)) 

Console.WriteLine(Array(5)) 

Console.WriteLine("sum {O0} + {1}= {2}", Array(3), Array(4), Array(5)) 
Console. ReadKey( ) 


ولن أقوم بشرح هذا الكود .., لانه من خصائص الكونسول وتم شرحه فى الجزء الأول من 
الكتاب 


> و هذه ھی النتب‎ 
BE file fC: Users’ CaptianMalek/ Desktop... laj 


Hello ۳ 
Im Captian Malek — 
Im #4 Years Old 

3A 

Sun 1AM + 2ZAA= 3A8 


بعض خصائص ال اءااAr۲ay‏ 


الخاصيه الاولى :- هى التعديل على عنصر مضاف من قبل بدلاله رقم الاندكس له 
Array.Insert(3, "Malek")‏ 

فهنا امرناه بتعدیل مافی الاندکس رقم 8 O‏ مافيه ويضع Malek ail‏ 

فان قمنا بتطبيقه على المثال السابق نجد انه سيحذف مافى الاندكس 3 (100) ويضع مكانه 

Malek 


الخاصيه الثانيه :- الحذف بدلاله البيان 


Array .Remove("Hel1o") 
هنا امرناه بالحذف بدلاله البيان داخل المصفوفه ... فعند تطبيقه على المثال السابق يقوم‎ 
٣١٥110 بالبحث داخل المصفوفه حتى يجد البيان‎ 
وفى المثال السابق كان هذا البيان فى اول جزء من المصفوفه .. الذى هو رقمه صفر فعند‎ 
-: تطبیقه یزیل مافی الاندکس صفر لتصبح ترتیبه الاندکس هی کالأتی‎ 


Captian Malek - `‏ | ... ویکون رقم الاندکس له صفر 
Years 0d-‏ 22 | ... ویکون رقم الاندکس له 1 
-100 ... ويكون رقم الاندكس له 2 
٤‏ -200 ... ویکو ن که 3 
Array )3( + Array )4(- °‏ ... ویکون رقم الاندکس له 4 


الخاصيه الثالثه :- الحذف بدلاله رقم الاندکس 
Array .RemoveAt (4)‏ 

هنا امرناه بحذف مافی الاندکس رقم 4 
وبتطبيقه على المثال السابق يقوم بحذف مافى الاندكس رقم 4 وهو (200) لتصبح المصفوفه 
ھکذا 

Hello - |‏ :.. ويکون رقم الاندکس له صفر 

Captian Malek - ۲‏ m|ا‏ ... ویکون رقم الاندکس له 1 

Years 0d- ۳‏ 22 | ... ویکون رقم الاندکس له 2 

3 ویکون رقم الاندکس له‎ ... 100- ٤ 

Array )3) + Array (4) - °‏ ... ويكون رقم الاندکس له 4 


الخاصيه الرابعه :- حذف اكتر من جزء من المصفوفه بدلاله الاندكس 


Array .RemoveRange(3, 2)‏ 
هنا امرناه بحذف 2 جزء من المصفوفه ابتداءا من الاندكس رقم 3 
ای سیقوم بحذف الاندکس رقم 4 والاندکس رقم 5 
فان قمنا بتطبيقه على المثال السابق اصبحت المصفوفه هكذا 


Hello - |‏ ... ويكون رقم الاندكس له صفر 
|m Captian Malek - ۲‏ ... ویکون رقم الاندکس له 1 


Years 0d - ۳‏ 22 | ... ویکون رقم الاندکس له 2 
Array)3( + Array(4)- ٗ‏ ... ویكون رقم الاندكس له 3 


البحث داخل ال خكذا لإة٣٣ة‏ بدلاله البيان 


والأن سنقوم بتطبيق مثال جديد يوضح كيفيه البحث داخل الأراى ليست بدلاله البيان الذى 


Imports System.Collections 
Module module1 
Sub main() 


Dim Array3 As New ArrayList 


Array3.Add( "AAA" ) 
Array3.Add( "BBB" ) 
Array3.Add("CCC") 


Console.Write("Type The Name You Want To Search: ") 

Dim H As String = Console.ReadLine 

If Array3.Contains(H)_ Then 
Dim T = Array3.LastIndexOf(H) 
Console.WriteLine("Index Number{@0}", T) 
Consolê.ReadKey( ) 


End If 


Console.WriteLine("Ssorry Name Not Found") 
Console. ReadKey() 


End Sub 


End Module 


الشرح 
فى المثال السابق قمنا باستیراد دوال ال ٣٥خ‏ ع11٥0‏ لنستطیع استعمال الارای ليست 
کما شرحنا من قبل 


Imports System.Collections 


ثم قمنا بحجز متغير بالأسم A۴3‏ من نوع المصفوفه ارای لیست 
ثم قمنا باضافه بعض البيانات داخل هذه المصفوفهلكى يتم البحث عنها 
Dim Array3 As New ArrayList‏ 


Array3.Add( "AAA" ) 
Array3.Add( "BBB" ) 
Array3.Add( "CCC") 


ثم امرنا الكونسول ان يطلب من المستخدم ان يدخل اسم البيان المراد البحث عنه داخل 
المصفوفه ... وان يضع قيمه ما ادخله المستخدم فى المتغير ١‏ 


Console.Write("Type The Name You Want To Search: ") 
Dim H As String = Console.ReadLine 


ثم قمنا بوضع جمله شرط ... تقوم بالبحث داخل المصفوفه عن القيمه التى ادخلها المستخدم فان 
وجدتها تذهب فى الطريق الحقيقى وهو طباعه نتائج البحث ... 

وان لم تجدھا ذهبت فی الطریق الغیر حقیقی .. الذی بعد کلمه 1۴ ٤۸4‏ 

If Array3.Contains(H) Then 

Dim T = Array3.LastIndexOof(H) 

Console.WriteLine("Index Number{O0}", T) 


Console. ReadKey() 
End If 


Console.WriteLine("Sorry Name Not Found") 
Console. ReadKey( ) 


ركز فى الكود كويس ... جمله الشرط بتقول ان كانت المصفوفه تحتوى على مافى,المتغير ٣١‏ 
وكما قولنا ان هذا المتغير الان يحمل ما قام بادخاله المستخدم 

فان وجدت هذه القيمه فى المصفوفه ...اذا من فضلك اعرض لى رقم الاندكس الخاص بها فى 
هذه المصفوفه 

فان قام المستخدم بادخال A۸۸۸‏ 

فتکون النتیجه هی الاندكس صفر 

كماترى فى الصوره التاليه ... هذه هى نتيجه البحث 


E file /C:/Users/CaptianMalek/ Desktop... lal 
Type The NaraYou Want To Search: 
Index Numbe <8 


وان قام المستخد بادخال ای قیمه اخری غير موجوده فی المصفوفه 
فتكون النتيجه 
کما تری فی الصوره التاليه 
Bl file: fC Users Captian Malek/ Desktop... ove ES‏ 


Tune The Name Yn Want To Search: Fdfd 
borrFry Name Not Found 


استخدام ال خءذا لإة٣ ۸٣‏ مع المصفوفه العاديه 

سوف نتعرض الأن لكيفيه استخدام المصفوفه العاديه مع المصفوفه اراى ليست 

وسوف نتعرض لكيفيه ارسال كل قيم المصفوفه العاديه الى المصفوفه اراى ليست وكيفيه 
ارسال قیمه واحده من المصفوفه العاديه ا المصفوفه ارای لیست 


Imports System.Collections 
Module module1 
Sub main() 


Dim Array2/ As New ArrayList 


Dim M(2) As=String 
M(0) i" i" 

M(1) 
M(2) 


A 
8 
٣ 


Array2. AddRange (M) 
Array2.Add(M(1) ) 
Array2.InsertRange(1, M) 


Dim I As Integer = Array2.Count 

Dim s As Integer 

For s = O0 To I - 1 
Console.WriteLine(Array2(s)) 

Next 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 
فی المثال السابق قمنا باستیراد دوال ال ٥٥11٥٤1٥٣‏ لنستطیع استعمال الارای ليست 
كما شرحنا من قبل عن طريق الكود 


Imports System.Collections 


ثم قمنا بحجز متغير بالأسم ۸٣٣۵۷2‏ من نوع المصفوفه ارای ليست 
ولم نقم باضافه اى اجزاء داخل هذه المصفوفه ... لاننا سوف نضع بها البيانات عن طريق 
ارسالها من مصفوفه عادیه کما ستری فیما بعد ... تابع معی 


Dim Array3 As New ArrayList 


ثم قمنا بحجز مصفوفه عاديه من النوع النصى ووضعنا باجزائها بيانات نصيه عن طريق الكود 
Dim M(2) As String‏ 

M(0) A" 

M(1) "B8" 

M(2) " 


والأن تبقى ان نرسل قيم هذه المصفوفه العاديه الى المصفوفه اراى ليست .. فكيف يتم ذلك ؟ 
الجواب :- يتم ذلك عن طريق الخاصيه ٤ءع"R2‏ كك۸ 
هذه الخاصيه هی من احد خواص الارای لیست 3 وتقوم هذه الخاصيه باضافه العناصر 
المحدده الى الاراى ليست . ويتم ذ لك عن طريق الكود 

Array2.AddRange (M) 


فهذا الكود يعنى .. اى قم باضافه كل محتويات المصفوفه العاديه " الى المصفوفه اراى ليست 
وتنفيذا لهذا الكود تصبح المصفوفه اراى ليست تحتوى على الاجزاء 


وايضا يمكننا اضافه عنصر واحد فقط من عناصر المصفوفه العاديه وليس اضافه كل 
عناصرها . وذلك يتم عن طريق الخاصيه كك۸ 
هذه الخاصیه ایضا من احد خواص الأرای ليست ولكن تقوم باضافه عنصر واحد بدلاله 
الاندكس له ويتم ذلك عن طريق الكود 
Array2.Add(M(1))‏ 


کک دی ای ق ا م ا ا ا اى الف رات ات 
وك ادات اارى لعل كيرد ف 

فن ت ب زا ع كرد اسان .ن ى مركت ادكه کر هی 
قيمه الاندكس رقم واحد .. اى سيقوم باضاف العنصر 8 

لتصبح المصفوفه ارای ليست تحتوى على الاجزاء 

A 


B 
C 
B 


وایضا یمکننا اضافه مجموعه عناصر محدده فنقوم بأمر المصفوفه ارای لیست ان تأخذ قيم من 
المصفوفه العاديه نقوم بتحديدها وذلك يتم عن طريق lاlخlاصي4 Insert Range‏ 
وهذه الخاصیه من احد خواص الارای ليست .. التی تقوم باضافه قیم محدد الی الارای ليست 
ويتم ذلك عن طريق الكود 

Array2.InsertRange(1, M) 


ومعنى هذا الكود .. اى قم باضافه عناصر المصفوفه العاديه الى المصفوفه اراى ليست 


ولكن بداً من العنصر صاحب الاندكس رقم 1 حتى نهايه المصفوفه... بمعنى ادق انه سوف 
يقوم باضافه عناصر المصفوفه العاديه كلها الى المصفوفه اراى ليست عدى العنصر المحتوى 
على الاندکس صفر . 

وتطبيقا لهذا الكود يضيف على محتويات المصفوفه اراى ليست العناصر € , 8 

فان قمنا بتطبيقه بعد الاكواد السابقه اصبحت محتويات المصفوفه اراى ليست 


والأن سنقوم بعمل دواره لعرض كل محتويات الأراى ليست على شاشه الكونسول 

وتکون فکره هذه الدواره قائمه علی .. حجز متغیر يحمل عدد اجزاء المصفوفه ارای ليست 
ٹم حجز تغیر اخر نستخدمه کمعامل فی الدواره لیتم عن طريقه عرض النتائج 

رکو کے رای ی توک ی رای کا د ا ا ا 
جزء فى المصفوفه 

وهذا هو كود الدواره .. سوف يهىء لك الفكره بطر يقه افضل 


Dim I As Integer = Array2. Count 
Dim s As Integer 

For s = O0 To I - 1 
Console.WriteLine(Array2(s)) 
Next 

Console. ReadKey( ) 


کی ا ا ا ی ت 

ثم قمنا بحجز متغير اخر ليكون معامل ليتم عن طريقه عرض محتويات المصفوفه اراى ليست 
ثم قمنا بكتابه نص الدواره .. الذى ينص على . افعل عندما يكون المعامل يبدأ من الرقم صفر 
حتى يصل الى نهايه عدد اجزاء المصفوفه ناقص واحد (- 1) 

قم بعرض المحتوى الذى رقم الاندکس له هو رقم المعامل 

والمعامل دلوقتی جوه الدواره کل لفه رقمه بیزید واحد ... وهو یبدا من الرقم صفر وینتهی 
حتى عدد اجزاء المصفوفه 


والسؤال هنا : لماذا قولنا حتى نهايه عدد اجزاء المصفوفه ناقص واحد (- 1) ؟ 

اعتقد ان اجابه هذا السؤال سوف تغير الفكره فى عقلك .. وتوضح كيفيه الأداء التكنيكي للدواره 
فقم بوضع كل تركيزك معى لتفهم ماهو الاسلوب التكنيكي لهذه الدواره . 

بدايه فكر معى الان كم هو عدد اجزاء المصفوفه اراى ليست الان ؟ المصفوفه الان تحتوى 
على 6 اجزاء وهما کالتالی :- 


A 
B 
C 
B 
B 
C 


وما هو کان شرطنا فی جمله الدواره ؟ ... شرطنا فى جمله الدواره ان يبدأ المعامل العد من 
الصفر حتى نهايه المصفوفه ناقص واحد . تخيل معى انه ينتهى عند نهايه اجزاء المصفوفه فقط 
فكما قولنا ان المصفوفه هى 6 اجزاء . اذن سوف ينتهى العد عند رقم 6 

6 >> 5 >> 4 >> 3 <> 2 << 1 << صفر 

اذا سيقوم بعمل 7 لفات بدايه من اللفه صفر حتى اللفه 6 

فی کل لفه سیقوم بعرض صنف بدلاله الاندکس الذی رقمه هو رقم هذه اللفه فتخیل معى كل لفه 
الان 


E SD IS DSSS >> 4 >> 5 >> 6 
A >> B >> C >> B >> B >> C >> ?? 


انتهت الوحده الأولى : 
کن على یقین عزیزی القاریء انه لطالما قمت بقراءه الوحده الاولی بترکیز وفهمت محتویاتها 
انك ستفهم باقى الوحدات الأتيه بكل سهوله .. لان كل الوحدات الأتيه سوف تترتب على ماقبلها 


-٠ الوحده التانيه‎ 
QUEUE 


وهو نوع من انواع المصفوفات الكوليكشن .. نقوم باستخدامه فى اضافه بعض البيانات مثل 
الارای لیست ثم نقوم بعرضها فی ای وقت نریده ... ولکن یختلف عن الارای لیست فی انه 
يسل بدا ا ا 

۴1۴٥ وتختصرهذه الجمله فبعض المطورین يطلقون عليه‎ عr1st‎ 1 Frist Out 
ای ان البیان الذی دخل فی الأول یخرج فی الأول ویکون له استعمالات کثیره ومهمه جدا ولا‎ 
غنى عنه فى المشاريع حيت يك — ا عم او ای نظام يعمل‎ 
. بالطابور حیث یتم اضافه البیان بداخله ویقوم باخراجه بالطابور على حسب الداخل اولا‎ 
وسوف نقوم بعرض مثال عليه لتصل لنا الفكره بصوره اوضح‎ 

تابح معى ... 


Imports System.Collections 
Module, modulel 
Sub maink() 


Dim MQ As New Queue 

MQ. Enqueue( "Ahmed" ) 

MQ. Enqueue( "Mohamed" ) 

MQ. Enqueue( "Abdo" ) 
Console.WriteLine(MQ. Dequeue) 
Console. ReadKey() 


Dim I As Integer 

For I = O0 To MQ.Count - 1 
Console.WriteLine (MQ. Dequeue) 

Next 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 


نعتبر ان المثال السابق هو مجموعه من الافراد واقفين فى طابور فى مطعم معين لشراء الأكل 
اولا : قمنا باستيراد دوال ال ٤1٥٣١‏ ع11٥0)‏ لنستطيع استعمال الكيو 
عن طريق الكود 


Imports System.Collections 


ثم قمنا بحجز متغير بالاسم 1Q‏ من نوع المصفوفه كيو 
ثم اضفنا بداخل المصفوفه مجموعه الافراد الواقفه فى الطابور . 


وذلك عن طريق الخاصيه عuاعںو"ع‏ التى تقوم باضافه البيانات داخل المصفوفه كيو 
ردن طرین کرد ال :- 


Dim MQ As New Queue 
MQ. Enqueue ( "Ahmed" ) 
MQ. Enqueue ("Mohamed") 
MQ. Enqueue ("Abdo") 


فان اردنا ان نأمر البرنامج باستخراج اول اسم قام بالحجز فى الطابور فيكون ذلك عن طريق 
lلخاصي4 Dequeue‏ 

هذه الخاصيه تقوم بعرض اول بيان دخل فى المصفوفه فان اردنا ان نقوم بعمل ذلك عن 
طريق الكود كان الكود كالأتى :- 


Console.WriteLine (MQ. Dequeue) 


معناه اننا امرانا الكونسول بكتابه اول اسم قمنا بتسجيله فى المصفوفه كيو . 
و مر دسو ول اسم یله فی د 


-ماذا لو اردنا ان نقوم بعمل دواره تقوم بعرض كل المسجلين بالطابور على الترتيب بعرض 
الاول تم الذى يليه حتى نهايه الطابور ؟ 

فکره الدواره تکون نفس فکر ه الدواره التى قمنا بشرحها فى اخر مثال فى الوحده الأولى 
لاتختلف نهائيا . فهى تكون عن طريق الكود الاتى :- 


Dim I As Integer 

For I = 0 To MQ.Count - 1 
Console.WriteLine (MQ. Dequeue) 
Next 

Console. ReadKey( ) 


هذه الدواره مضمونها باختصار 

قمنا بحجز متغير من النوع العددی . ثم قمنا پملآالدواره على الاساس الاتى 

قم بالعرض الدائرى قيم البيانات الموجوده داحل المصفوفه كيو. بدايه من القيمه صفر للمتغير 
حتى نهايه المصفوفه ناقص واحد . 

فلماذا قولنا حتى نهاياه لوقه ناقصن زاح ؟ قا إبالاً جاه( علي | فلك السؤال فى الدواره 
السايقة قى الو حذه الأول 


انتهت الوحده الثانيه- 


اليذه الاه د 


STACK 


وهو نوع من انواع المصفوفات الكوليكشن .. نقوم باستخدامه فى اضافه بعض البيانات ثم 
نقوم بعرضها فی ای وقت نريده ... وهو يعمل بمبدأ الداخل اخيرا يخرج اولا 

از۴٥ ہ1 stه ]1 وتختصرهذه الجمله فبعض المطورين يطلقون عليه‎ ۴s Out 
. اى ان البيان الذى دخل فى الاخر يخر ج فى الأول فهو يقوم بعكس عمل المصفوفه كيو‎ 
ويكون له بعض الخواص التى تختلف عن خواص الكيو‎ 


فهو لديه خاصيه الطوںم التى تقوم باضافه العناصر داخله 


وهذه الخاصيه تقوم بعرض اخر بيان او صنف مسجل فى المصفوفه ثم تقوم بنقل المؤشر على 
ااصت اى رن عا الذور في العركن. 


ولديه ايضا الخاصيه)م مع التى تقوم بعضر الصنف الذى يكون عليه الدور للعرض 
او بمعنى اوضح تقوم بعرض الصنف الذى يقف عليه المؤشر 


وسوف نقوم بعرض مثال عليه لتصل لنا الفكره بصوره اوضح 
تابح معى ... 


Imports System.Collections 
Module Module1 


Sub Main() 


Dim Ms As New Stack 
Ms.Push("Nour") 
Ms.Push("Malek") 
Ms.Push("shafee") 
Ms.Push("Salma") 


Console.WriteLine(Ms.Pop) 
Console.WriteLine (Ms. Peek) 
Console. ReadKey() 


Dim S = Ms.Count - 1 

Dim i As Integer 

FOES TOS 
Console.WriteLine (Ms. Pop) 


Next 
Console. ReadKey( ) 


End Sub 


End Module 


الشرح 


اولا : قمنا باستیراد دوال ال 0٥11٥٤1٥٣5‏ لنستطیيع استعمال الکیو 
عن طريق الكود 


Imports System.Collections 


ثم قمنا بحجز متغير بالاسم ئ" من نوع المصفوفه ستيك 

وذلك عن طريق الخاصيه ٣وب‏ التى تقوم باضافه البيانات داخل المصفوفه ستيك 
وذلك عن طريق الكود التالى :- 

Dim Ms As New Stack 

Ms.Push("Nour") 

Ms.Push("Malek") 


Ms.Push("shafee") 
Ms.Push("Salma") 


فان اردنا ان نأمر البرنامج باستخراج اخر اسم قمنا بتسجيله فيكون ذلك عن طريق 

الخاصيه مهم 

هذه الخاصيه تقوم بعرراضن اخر بيان دخل فى المضفوفه كما شرخنا مسبقا فان اردنا ان نقوم 
بعمل ذلك عن طریق الکود کان الود کالأتى :- 

Console.WriteLine (Ms. Pop) 

ومعناه اننا امرانا الكونسول بكتابه اخر اسم قمنا بتسجيله فى المصفوفه ستيك. 

وان اردنا ان نأمر البرنامج بعرض الاسم الذى سيكون عليه الدور فى العرض القادم او الاسم 
الذى يكون المؤشر واقفا عليه فيكون عن طريق الكود التالى :- 

Console.WriteLine (Ms. Peek) 


ومعناه اننا امرنا الكونسول بكتابه الاسم الذى سيكون عليه الدور فى المره القادمه 


-فماذا لو اردنا ان نقوم بعمل دواره تقوم بعرض كل المسجلين بالمصفوفه على ترتيبها 
الخاص اى بعرض الاخير ثم مافوقه حتى بدايه المصفوفه؟ 

فكره الدواره تكون نفس فكره الدواره التى قمنا بشرحها سابقا 

فھی تکون کالاتی:- 


Dim i As Integer 

For i = O0 To Ms.Count - 1 
Console.WriteLine(Ms.Pop) 
Next 

Console. ReadKey() 


هذه الدواره مضمونها باختصار 

فنا نح مر من ارغ الي ق فع فل ار ر لى ااا اا 

قم بالعرض الدائرى لقيم البيانات الموجوده داخل المصفوفه ستيك. بدايه من القيمه صفر 
فلماذا قولنا حتى نهايه الم فرفه ناق ا E‏ ا#طااجابه على ذلك السوال فی الدراره 
فی نهایه ال۴ 


انت الورجدة الفااكة: 


٠ الأخذة آل رأة‎ 
HASH TABLE 


هو ايضا من انواع المصفوفات الجينيرك ولكن له استخدام مختلف عن المصفوفات السابقه 
فهو يستخدم لتسجيل بيانات معينه ووضع مفتاح لكل بيان بحيث عند البحث داخله يمكننا البحث 
بهذا المفتاح ومن الممكن ان نضع المفتاح لكل بيان بأى نوع من انواع الداتا فلا يشترط ان 
يكون رقم فمن الممكن ان نضعه نص او اى نوع اخر من انواع البيانات حيث ان المفتاح من 
النوع اوبجكت . 


الخاصيه ل۸ 
الخاضه فك م ضاف هان اكل المضة فة مائ ن 


Remove ( ) الخاصي4‎ 

تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء المصفوفه هاش تيبل ويكون المسح بدلاله 
المفتاح حيث نقوم بوضع رقم المفتاح بين القوسين ان كان رقمى .. وان كان نصيا نقوم 
بوضعه بين القوسين وبين علامتي تنصيص فيكون هكذا ( '' رع R0۷6)" My)‏ 


خاصيه sع٥€‌ںVa1‏ 
لعرض قيمه معينه داخل اجزاء المصفوفه هاش تيبل 


خاصیيه ءرع» 
لعرض مفتاح خاص بقیمه معینه داخل اجزاء المصفوفه هاش تيبل 


خlاصي4 ContainsValue‏ 
تمتا ف النخت دال النضفرفة هاش ل ع اه بان مين بذاخل اج انها 


خlصي4 ContainsKey‏ 
تمكننا فى البحث داخل المصفوفه هاش تيبل عن مفتاح خاص بقيمه معينه بداخل اجزائها 


خlاصيڍ4 Count‏ 
تمكننا بعرض عدد البيانات التى بداخل المصفوفه هاش تيبل 


والأن سوف نتعرض الى مثال يوضح عمل الخواص او الميثود الخاصه بالهاش تيبل 
تانح جى . 


Imports System.Collections 
Module module1 
Sub Main() 


Dim HT As New Hashtable 


HT.Add(1, "Mouse") 
HT(2) = "Monitor" 
HT(2) = "Sound" 


HT.Add("M", "Keyboard") 
Console.WriteLine(HT(1)) 
Console.WriteLine(HT("M")) 

مسح صنف بدلاله رقم المفتاح' (1) ع H۲. R‌‌e»0۷‏ 


لعرض عدد الاإصناف المسجله بداخل الهاش تيبل' 
Console.WriteLine("The item Count {0}", HT.Count)‏ 


لعرض القيم الخاصه بالمفاتيح داخل الهاش تيبل 

Console.WriteLine(" 

Dim K As Object 

Forı Each K In HT.Values 
Console.WriteLine(K) 

Next 

Console. ReadKey( ) 


لعرضل المفاتيج التى بداخل الهاش/تيبل بدواره 

Console.WriteLine("™ 

Dim S As Object 

For Each S In HT.Keys 
Console.WriteLine(S) 

Next 

Console. ReadKey( ) 


' البحث داخل الهاش تيبل عن صنف بدلاله اسمه‎ 
Console.WriteLine("Enter The Item Name ") 
Dim W = Console.ReadLine 
If HT.ContainsValue(W) Then 
Dim T = HT(W) 
Console.WriteLine(T) 
Console. ReadKey( ) 
Else 
Console.WriteLine("Item Not Found") 
Console. ReadKey( ) 
End If 


البحث داخل الهاش تيبل عن صنف بدلاله مفتاحه"' 

Console.WriteLine("Enter The Item Key ") 

Dim Q = Console.ReadLine 

If HT.ContainsKey(Q) Then 
Console.WriteLine(HT(Q)) 
Console. ReadKey( ) 

Else 
Console.WriteLine("Item Not Found") 
Console. ReadKey( ) 

End IF 

End Sub 
End Module 


الشرح 


اولا : قمنا باستیراد دوال ال 0٥11٥٤٤10٣‏ لنستطيع استعمال الهاش تيبل 
عن طريق الكود 


Imports System.Collections 


ثم قمنا بحجز متغیر يحمل نسخه من خواص الهاش تيبل 
Dim HT As New Hashtable‏ 


قولنا مسبقا ان الهاش تيبل يمكن ان يسجل بها المفتاح والبيان الخاص بالمفتاح باى نوع من 
الداتا لانه من النوع اوبجكت الذى يحمل اى قيم من البيانات ... لذلك قمت فى المثال السابق 
باضافه نوعین من انوع البیانات وهو نصی وحرفی لکی تفھم کیف تقوم بتسجیل کل نوع علی 
حدى لانه تختلف طريقه التسجيل النصى عن الرقمى 


فقمت باضافه بيان نصى ومفتاح رقمى بطريقتين عن طريق الكود 


وهذه هى الطريقه الأولى باستخدام الميثود او الخاصيهلل۸ 
فهنا قمت بوضع المفتاح رقم 1 والبيان عمsںه"×‏ 


HT.Add(1, "Mouse") 


وهذه هى الطريقه الثانيه المفتاح رقمى والبيان نصى 

فهنا قمت بوضع المفتاح رقم 2 وllبيانj Monitor , sound‏ 

لاحظ معى هنا انى وضعت اتنين بيان برقم مفتاح مشابه ... فهل سيأخذ المفتاح البيان الأول ام 
سيأخذ البيان الثانى ام سيأخذ الاثنين ؟ بالطبع سيأخذ البيان الثانى ويقوم بتلاشى الأول .. وهذا 
مایسمی بطريقه التعدیل علی بیان خاص بمفتاح معین ... ای ان اردنا ان نعدل على البيان 
ونضع بيان اخر نقوم بعمله عن طريق هذا الكود . 


HT(2) = "Monitor" 
HT(2) = "Sound" 


وان اردنا ان نقوم بتسجيل مفتاح نصى وبيان نصى فيتم عن طريق الكود التالى 
HT.Add("M", "Keyboard")‏ 

باختصار شدید ان الفرق بین اضافه مفتاح او بیان نصی و رقمی 

ان النصی لابد ان يكتب بين دبل كوتيشن اى هذه العلامه "" 

اما البيان الرقمى فهو يكتب حر بدون قيوم او علامات 


وهنا طریقه عرض البیان على شاشه الکونسول بدلاله مفتاحه سواء کان نصی او رقمی 

فكما قولنا ان الفارق الوحيد ان النصى يضع بين علامتي الدبل كوتيشن ولكن الرقمى يكتب حر 
بدون ای قیود او علامات وهذه قاعده عامه عند التعامل مع القيم النصیه فى اى مكان. 

Console.WriteLine(HT (1)) 

Console.WriteLine(HT("M")) 


وان اردنا ان نقوم بحذف بیان معین بدلاله مفتاحه فیکون عن طریق الکود 
HT. Remove (1)‏ 
لابد ان نراعی وضعه بین علامتی الدبل کوتیشن. 


وان اردنا ان نقوم بعرض عدد المحتويات او البيانات المسجله بداخل الهاش تيبل فيكون ذلك 
عن طريق الكود التالى 

Console.WriteLine("The item Count {0}", HT.Count) 

اى قم بعرض عدد المحتويات التى بداخل الهاش تيبل مع افاده المستخدم ان هذا هو عدد 
الاصناف 

وهنا لابد ان نقف وقفه صغيره لنعلق على الرقم المكتوب بجوار الکلمه4 The Item Count‏ 
وهو الرقم صفر الذى بين البراكتس او القوسين .. هذا الرقم يفيد بان يعرض مابعد الكومه 
الأولی ... فان اردنا کتابه بیان اخر لابد من وضع کومه اخری فما بعد الکومه الثانیه یساوی 1 
فمن الممكن تغير الرقم ل 1 ولكن هكذا ستكون الجمله بجوار البيان مابعد الكومه الثانيه. 


وان اردنا عرض کل محتویات الهاش تيبل البیانات بدواره فتکون الدواره بسيطه جدا مٿل 
مافعلنا بالامثله السابقه 

Dim K As Object 

For Each K In HT.Values 

Console.WriteLine(K) 

Next 


طبعا احنا اتعودنا على اسلوب الدوارات ومش محتاج اشرحها تانی. 


وان اردنا ان نعرض کل محتویات الهاش تيبل المفاتیح بدواره فتکون هی نفس فکره الدواره 
السابقه ولكن نجعله يدور حول المفاتيح ولا يدور حول القيم هكذا 

Dim S As Object 

For Each S In HT.Keys 

Console.WriteLine(S) 

Next 


وان اردنا ان نقوم بالبحث داخل الهاش تيبل عن صنف معين بدلاله اسمه فيكون ذلك عن طریق 
الكود التالى :- 

Console.WriteLine("Enter The Item Name ") 
Dim W = Console.ReadLine 

If HT.ContainsValue(W) Then 

Dim T = HT(W) 

Console.WriteLine(T) 

Console. ReadKey( ) 

Else 

Console.WriteLine("Item Not Found") 
Console. ReadKey( ) 

EM Ef 


اولا: طلبت من الكونسول ان يعرض رساله للمستخدم يفيده بان يدخل اسم الصنف المراد البحث 
عنه 


ثم قمت بحجز متغير ليحمل قيمه ما ادخل المستخدم 


ثم قمت بعمل جمله شرطيه تقول .. ان كانت المصفوفه تحوى مابداخل المتغير(الذى يحمل قيمه 
ما ادخله المستخدم) اذن اعرض الناتج داخل متغير اخر 

ثم اعرض مافى هذا المتغير على شاشه الكونسول . 

وان لم تجد ما ادخله المستخد م15٤‏ 

اعرض رساله للمستخدم على شاشه الكونسول تفيد بأنه لا يوجد صنف بهذا الأسم 


فماذا ان اردنا ان نقوم بالبحت بدلاله رقم المفتاح ؟ ان فهمت فكره الكود الى فات هتعمل دى 
لوحدك .طیب تعالی نعملھا سوی بس ةر ك الأول وان تعثرت فيها راجعها 
معايا. 


Console.WriteLine("Enter The Item Key ") 
Dim Q = Console.ReadLine 

If HT.ContainsKey(Q) Then 
Console.WriteLine(HT(Q)) 

Console .ReadKey( ) 

Else 

Console.WriteLine("Item Not Found") 
Console. ReadKey( ) 

Ed IF 


نفس فكره الكود السابق تماما 

اولا: طلبت من الكونسول ان يعرض رساله للمستخدم يفيده بان يدخل رقم المفتاح المراد بدلالته 
ثم قمت بحجز متغير ليحمل قيمه ما ادخل المستخدم 

ثم قمت بعمل جمله شرطيه تقول .. ان كانت المصفوفه تحوى مابداخل المتغير(الذى يحمل قيمه 
ما ادخله المستخدم) اذن اعرض الناتج على شاشه الكونسول . 

وان لم تجد ما ادخله المستخد ٥1ع‏ 

اعرض رساله للمستخدم على شاشه الكونسول تفيد بأنه لا يوجد صنف بهذا المفتاح. 


نهت الوحذه الرايعد' 


- الوحده الخامسه‎ 
SORTED LIST 


السورتيد ليست .. هى ايضا نوع من انواع الكوليكشن وهى تشبه الهاش تيبل الى حد ما فهى 
تستخدم فى تل ا ا :ا د ال مل لاش تیل ولکن 
تختلف عنه بأنها تقوم بترتيب البيانات او الاصناف التى بداخلها تلقائيا فان قمنا مثلا بتسجيل 
صنف بمفتاح رقم 4 تم قمنا بتسجيل صنف اخر بمفتاح برقم وليكن 3 فاننا عندما نأمرها 
بعرض مابداخلها نجدها تلقائيا تقوم بعرض اولا البيان الخاص بالمفتاح رقم 3 تم البيان الخاص 
بالمفتاح رقم 4 .. وتتميز السورتيد ليست عن جميع انواع المصفوفات فى انها تبدأ بالاندكس 
رقم 1 .. وليس صفر كما هو الحال فى اغلب المصفوفات . 


الخاصيه لكA‏ 
هذه الخاصيه تمكننا من اضافه بيان داخل السورتد ليست 


الخاصي4 ) ( Remove‏ 
تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء السورتد ليست ويكون المسح بدلاله 
المفتاح حيث نقوم بوضع رقم المفتاح بين القوسين ان كان رقمى .. وان كان نصيا نقوم 

بوضعه بين القوسین وبين علامتي تنصيص فیكون هكذا ( '' رع "My)‏ )٥۷٥۸0ء۸‏ 


Va1u‌es خاصيه‎ 


خاصیيه ءرع» 


خlصڍ4 ContainsValue‏ 
تمكننا فى البحث داخل السورتد ليست عن قيمه بيان معين بداخل اجزائها 


خlصيa4 ContainsKey‏ 
تمكننا فى البحث داخل السورتد ليست عن مفتاح خاص بقيمه معينه بداخل اجزائها 


خاصيە4ه Count‏ 
تمكننا بعرض عدد البيانات التى بداخل المصفوفه هاش تيبل 


والان e i mn‏ ا ا ت 
تابع معىی ... 


Imports System.Collections 
Module module1 


Sub main() 


Dim S As New SortedList 
S.Add(4, "Ssalma”") 
S.Add(2, "Malek") 
S.Add(3, "shafee") 
S.Add(1, "Nour") 


Dim X = S.Count 

Dim I As Integer 

For I = 1 To X 

Console.WriteLine("Number {O} = {1}", I, S(1I)) 
Next 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 


اولا : قمنا باستیراد دوال ال 0٥11٥٤10٥٣‏ لنستطيع استعمال الهاش تيبل 
عن طريق الكود 


Imports System.Collections 


ثم قمنا بحجز متغير من نوع المصفوفه سورتد ليست 
Dim S As New SortedList‏ 


ثم قمنا باضافه بعض البيانات بارقام مفاتيح غير مرتبه فجعانا البيان الاول مصاحب لمفتاح رقم 
لذرى كيف ستقوم المصفوفه ترتيبهم 

S.Add(4, "Ssalma") 

S.Add(2, "Malek") 


S.Add(3, "shafee") 
S.Add(1, "Nour") 


ثم قمنا بعمل دواره بسيطه تقوم بعرض محتويات المصفوفه على الترتيب 
Dim X = S.Count‏ 

Dim I As Integer 

For I = 1 To X 

Console.WriteLine("Number {O} = {1}", I, S(I)) 

Next 


اولا: قمنا بحجز متغير يحمل عدد البيانات التى بداخل السورتد ليست ولم نضع - 1 لاننا قولنا 
مسبقا ان هذه المصفوفه لات تحتوی على الاندکس رقم 0 


ثم قمنا بحجز مڌ متغير اخر عددى ولنعرف فائده المتغيرين الأن 

ثم بدأت الدواره و اجعل الدوران يبدأ من رقم المتغير العددى (1) وینتهی بنهایه المتغير الذى 
يحمل عدد البيانات التى بداخل السورتد ليست 

فى كل لفه اجعل شاشه الكونسول تكتب رقم اللفه ثم تكتب اسم البيان الخاص بهذه اللفه 

ولاحظ معى هنا فى كود العرض 

Console.WriteLine("Number {O} = {1}", I, S(1I)) 

وضعنا رقم 0 و 1 بين قوسين .. فما سوف يعرض مكان الصفر هو مابعد الكومه الاولى وما 
سوف يعرض مكان ال 1 او بعد العلامه = هو مابعد الكومه الثانيه (1) ك 


فلك أن تتخيل النائج لكى يتضح لك العليه اكثر 
خط اضرر: 
حا اا تفن BY file IC:‏ 


فان قمت بمراجعه الكود فستجد ان البيان الأول المسجل بالمصفوفه هو البيان 5212 
ولكن لأنه مصاحب للمفتاح الأكبر قيمه فكان اخر بيان معروض فى شاشه الكونسول 


كيفيه البحث وعرض عدد الأصناف وباقى المميزات على نمط الهاش تيبل 


الت اا الام 


الوحده السادسه :- 


STRING DICTIONARY 


الاسترينج ديكشنرى هى ايضا من انواع الكوليكشن ولكنها تختص بجزء بداخل الكوليكشن 
يسمى Specialized.‏ 

لذلك لابد عند استعمالها استيرادها عن طريق الكود 
Imports System.Collections.Specialized‏ 

وهی تشبه عمل السورتيد ليست فهى تقوم بترتيب بياناتها تلقائيا ولكنها تختلف عنها فى انها 
تستخدم فى اضافه بيانات ومفتاح خاص بكل بيان ولكن لاتقبل الا القيم النصيه سواء كان فى 
المفتاح ١‏ وفى البيان فهى لاتقبل القيم الرقميه او التاريخ اوالمزدوجه ... الخ. لأنها من النوع 
string‏ ولذلك یطلق علیھا 

string Dictionary 

وتقوم بترتيب بياناتها بدلاله المفاتيح فان قمنا بادخال بيان بالمفتاح 0 

ثم قمنا بادخال بیان اخر بالمفتاح ۸ 

فانها عند العرض تقوم اولا بعرض البيان الخاص بالمفتاح ,۸ ثم المفتاحج 0 


بعض الخصائص او الميثود الخاصه بالأسترينج ديكشنرى 
الخاصيه Ad‏ 
هذه الخاصیه تمکننا من اضافه بیان داخل الاسترینج ديكشنرى 


Remove ( ) الخاصي4‎ 

تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء الاسترينج ديكشنرى ويكون المسح بدلاله 
المفتاح حيث نقوم بوضعه بين القوسين وبين علامتي تنصيص فيكون هكذا 

Remove ("MyKey" ) 


خاصيه Values‏ 
لعرض قيمه معينه داخل اجزاء الاسترینج ديكشنرى 


خاصیه ءرع) 
لعرض مفتاح خاص بقيمه معينه داخل اجزاء الاسترينج ديكشنرى 


تابع معی ... 


Imports System.Collections.Specialized 
Module module1 


Sub Main() 


Dim SD As New StringDictionary 
SD.Add("E", "Eat") 

SD.Add("D", "Drink") 
SD.Add("A", "Apple") 

'SD. Remove ("A") 


Console.WriteLine(" 

Dim S As String 

For Each S In SD.Values 
Console.WriteLine(S) 

Next 

Console. ReadKey( ) 


Console.WriteLine(" 

Dim K As String 

For Each K In SD.Keys 
Console.WriteLine(K) 

Next 

Console. ReadKey( ) 


End Sub 


End Module 


الشرح 


اولا : قمنا باستیراد دوال ال 165 )11e٤‏ لنستطيع استعمال الاسترينج ديكشنرى 
عن طريق الكود 


Imports System.Collections.Specialized 


ثم قمنا بحجز متغير من نوع المصفوفه سترينج ديكشنرى 

Dim SD As New StringDictionary 

ثم قمنا باضافه بیانات داخل الاسترینج دیکشنری باسماء مفاتیج وطریقه غير مرتبه 
لنرى كيف ستقوم المصفوفه سترينج ديكشنرى بترتيب هذه البيانات بدلاله مفاتيحها 
SD.Add("E", "Eat")‏ 


SD.Add("D", "Drink") 
SD.Add( "A", "Apple") 


لاحظ معى فى الصوره التاليه كيف قامت بترتيب البيانات :- 
Bl filef{/C/Users/CaptianMalek... =‏ 


I1 1 ۲ 


ثم ان اردنا ان نقوم بحذف بیان معین بدلاله مفتاحه فیکون کالأتی :- 
SD.Remove("A")‏ 
ای قم بحذف البیان الذی یختص بالمفتاح ۸ 


ثم قمنا بعمل دوارہ تقوم بعرض کل محتویات الاسترینج دیکشنری القیم 
Dim S As String‏ 

For Each S In SD.Values 

Console.WriteLine(S) 

Next 


تفيد هذه الدواره باللف حول المتغير النصى S‏ 

طالما كان هذا المتغير يحوى قيمه من القيم الموجوده داخل الاسترينج ديكشنرى 

وفی کل لفه تعرض محتوى من محتويات الاسترينج ديكشنرى حتى تصل لنهايه المحتويات 
فینتهی عمل الدواره 


فماذا ان اردنا ان نقوم بعمل دواره اخری تقوم بعرض کل ارات الاسر ری 
المفاتيح ؟ بالتأكيد ان فهمت عمل الدواره السابقه ستقوم بعمل هذه الدواره بمفردك 

اذن قم بالتجربه هل تستطيع عملها ام لا . فان تعثرت فتابع معى 

Dim K As String 

For Each K In SD.Keys 


Console.WriteLine(K) 
Next 


تفيد هذه الدواره باللفف خول إالمستغير النصى ٠‏ 

طالما كان هذا المتغير يحوى مفتاح من المفاتيح الموجوده داخل الاسترينج ديكشنرى 

وفى كل لفه تعرض مفتاح من المفاتيح المسجله داخل الاسترينج ج دیکشنری حتى تصل لنهايه 
المفاتيح فينتهى عمل الدواره 


انتهت الوحده السادسه : 


الوحده السابعه - 


LIST DICTIONARY 


الليست ديكشنرى هى ايضا من انواع الكوليكشن ولكنها تختص بجزء بداخل الكوليكشن 
يسمى Specialized.‏ 

لذلك لابد عند استعمالها استيرادها عن طريق الكود 
Imports System.Collections.Specialized‏ 
وهی تماما مثل عمل الهاش تيبل لاتختلف عنه فى اى شىء.. الا انها اسرع منه فى التعامل 
ولكنها لا تحمل الا عشره بيانات فقط فان زاد عليها اكثر من عشره بيانات لاتعمل. 

ويفضل العمل بها عن العمل بالهاش تيبل ولكن ان تأكدنا بأن الأصناف الى سوف تسجل بها 
سوف لن تزيد عن عشره اصناف. واجزائها تحمل جميع انواع الداتا سواء كانت المفاتيج او 
القيم الخاصه بكل مفتاح فهى من النوع اوبجكت كما هو الحال تماما فى الهاش تيبل 

لمعرفه استخدام الهاش تيبل راجع الوحده الرابعه . 


الخاصيه إكA‏ 
هذه الخاصیيه تمکننا من اضافه بیان داخل اللیست ديكشرى 


الخاصي4 ) ( Remove‏ 
تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء المصفوفه ليست ديكشنرى ويكون المسح 
بدلاله المفتاح حيث نقوم بوضع رقم المفتاح بين القوسين ان كان رقمى .. وان كان نصيا نقوم 

بوضعه بين القوسين وبين علامتي تنصيص فıùكون‏ ذا ) Remove ( "MyKey"‏ 


خاصیيه sع‌uں۷a1‏ 
لعرض قيمه معينه داخل اجزاء الليست ديكشنرى 


خاصیه ءرع» 
لعرض مفتاح خاص بقیمه معینه داخل اجزاء اللیست ديكشنرى 


خlاصيڍ4 ContainsValue‏ 
تمكننا فى البحث داخل الليست ديكشنرى عن قيمه بيان معين بداخل اجزائها 


خlصي4 ContainsKey‏ 
تمكننا فى البحث داخل الليست ديكشنرى عن مفتاح خاص بقيمه معينه بداخل اجزائها 


خاصيه غ Coun‏ 
تمكننا بعرض عدد البيانات التى بداخل الليست ديكشنرى 


والأن سوف نتعرض الى مثال يوضح عمل الخواص او الميثود الخاصه بالليست ديكشنرى 
تابح معى ... 


Imports System.Collections.Specialized 
Module module1 
Sub main() 


Dim LD As New ListDictionary 
LD.Add(1, "SPeaker") 
LD.Add(2, "Mouse") 

LD.Add(3, "Monitor") 
LD.Add(4, "Keyboard") 


Console.WriteLine(" 

Dim K As Object 

For Each K In LD.Keys 
Console.WriteLine(K) 

Next 


Console.WriteLine(" 

Dim V As Object 

For Each V In LD.Values 
Console.WriteLine(V) 

Next 


Console Wri teline ( ¥ 

Console.WriteLine(" 

Console.WriteLine("Keys | Values") 

Console.WriteLine(" "( 

Dim KV As DictionaryEntry 

For Each KV In LD 
Console.WriteLine(" {O} | {1} ", KV.Key, KV.Value) 

Next 

Console.WriteLine(" 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 


اولا : قمنا باستیراد دوال ال 165 )11e‏ لنستطيع استعمال الاسترينج ديكشنرى 
عن طريق الكود 


Imports System.Collections.Specialized 


ثم قمنا بحجز متغير من نوع المصفوفه لیست دیكشنرى 


Dim LD As New ListDictionary 


ثم قمنا باضاف بعض البيانات بداخلها مفاتيح من النوع الرقمى وبيانات من النوع النص 
LD.Add(1, "SPeaker")‏ 

LD.Add(2, "Mouse") 

LD.Add(3, "Monitor") 

LD.Add(4, "Keyboard") 


ثم قمنا بعمل دواره تقوم بعرض مابداخل اللیست دیکشنری من مفاتیح 
Dim K As Object‏ 

For Each K In LD.Keys 

Console.WriteLine(K) 

Next 


قمنا بحجز متغير من النوع اوبجكت وذلك ضمانا لعدم حدوث خطا وافتراضا اننا لانعلم ماهى 
نوع الداتا للمفاتيح التى بداخل الليست ديكشنرى .. فقمنا بحجز المتغير اوبجكت ليقبل جميع 
البيانات . 

ثم بدأت الدواه .. تدور طالما كان هذا المتغير يحوى مفتاح من مفاتيح الليست ديكشنرى 
وفی کل لفه تقوم بعرض مفتاح حتی تقوم بعرض کل المفاتیح فینتهی عمل الدواره 


فما ذا ان اردنا ان نقوم بعمل دواره تعرض کل محتویات اللیست دیکشنری من قیم ؟ بالطبع ان 
فهمت الدواره السابقه فستقوم بعمل هذه الدواره بمفردك .... جرب وقم بعملها بمفردك دون 
النظر الى اكوادها اؤ الاطلاع عليها .؛. فان تعثرت فى/عملها تابغ معى 

Dim V As Object 

For Each V In LD.Values 


Console.WriteLine(V) 
Next 


قمنا بحجز متغير من النوع اوبجكت ايضا وذلك ضمانا لعدم حدوث خطأ وافتراضا اننا لانعلم 
ماهى نوع الداتا للقيم التى بداخل الليست ديكشنرى .. فقمنا بحجز المتغير اوبجكت ليقبل جميع 
البيانات سواء كانت نصيه او رقميه او مزدوجه ... الخ. 

ثم بدآت الدواه .. تدور طالما كان هذا المتغير يحوى بيان من بيانات الليست ديكشنرى 

وفی کل لفه تقوم بعرض بیان حتى تقوم بعرض كل البيانات فينتهى عمل الدواره. 


فما ذا ان اردنا ان فک بل ڈؤارہ تعراطل کل م خفرایات ایشا درکشن زیی من قیم ومفاتیح کل 
مفتاح بجواره القيمه الخاصه به ؟ الطريقه ابسط مما تتخيل فلا تدع الكلام يهىء فى عقلك ان 
الفکره کبیره او مستحیله او حتی انها صعبه .. فقط رکز معی وسوف تعلم کیف نقوم بعمل هذه 
الدواره . 

Dim KV As DictionaryEntry 


For Each KV In LD 
Console.WriteLine(" {0} | {1} ", KV.Key, KV.Value) 


Console.WriteLine(" 
DictionaryEntryعوill‎ ja قمنا بحجز متغير‎ 


هذا النوع هو نوع يحوى مابداخل المصفوفات التى من النوع الديكشنرى وهو يحوى مابداخلها 
من مفاتیح واصناف ... فیمکن استعماله مع ای نوع من انوع الدیکشنری فهو افضل من ان 


نقوم بحجز متغير اوبجكت لانه يكون اسرع منه بكثير... لأن النوع اوبجكت فى الميمورى يقوم 
بالعمل عن طريق البحٿث عن كل بيان تم ان كان هذا البيان من النوع النصى يقوم بحجز متغير 
من النوع النصی فی المیموری وان کان رقمى يقوم بحجز متغير رقمى فى الميمورى ... 
وهکذا ...فهو يأخذ وقت ولن نشعر ب ‌الارفى البيانات الضخمه لذلك لابد ان نراعى هذه النقاط 
الصغيره المهمه . 

ثم بدأت الدواه .. تدور طالما كان هذا المتغیر يحوی بيان كامل من بيانات الليست ديكشنرى 
ولم نقم بالشرط عليه بقیمه صنف او مفتاح . 

وفی کل لفه تقوم بعرض بیان کامل مفتاح وصنف حتی تقوم بعرض کل البیانات فینتھی عمل 
الدواره. 


E file///C:FUsers/ CaptianMalek... ala EE 


لاحظ ان النتيجه هى عرض القيم المفاتيح فقط ... وهو ناتج الدواره الأولى 


EE ET FEY 


الأوحده الثامنه '- 


HYBRID DICTIONARY 


الهايبرد ديكشنرى هى ايضا من انواع الكوليكشن ولكنها تختص بجزء بداخل الكوليكشن 

Specialized. يسمى‎ 

لذلك لابد عند استعمالها استيرادها عن طريق الكود 
Imports System.Collections.Specialized‏ 

...ولقد تطرقنا للقول مسبقا انه بفضل العمل بالليست ديكشنرى ان تأكدنا بأن الأصناف التى 
ستضاف به سوف لن تزيد عن عشر أصناف وان زادت عن ذلك فلابد من استعمال الهاش تيبل 
لأنه يحمل عدد اصناف اكثر من الليست ديكشنرى .. ولكن الهايبرد ديكشنرى تقوم بالتحويل 
بین اللیست دیکشنری والهاش تيبل فهی عندما تکون اصنافها اقل من عشره اصناف فهى تقوم 
باستخدام الليست ديكشنرى وان زادت الأصناف عن عشره تقوم تلقائيا بتحويل نفسها على نظام 
الهاش تيبل . فهى افضل فى الأستخدام فى حاله الزعزعه فى عدد الأصناف .. ولذلك ينصح 
بأستخدامها . والتعامل معها هو نفس التعامل مع الليست ديكشنرى والهاش تيبل تماما لا يوجد 
أى اختلاف. 


الخاصيه ل۸ 
هذه الخاصيه تمكننا من اضافه بیان داخل الهایبرد دیكشرى 


الخاصي4 ) ( Remove‏ 
تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء المصفوفه هايبرد ديكشنرى ويكون المسح 
بدلاله المفتاح حيث نقوم بوضع رقم المفتاح بين القوسين ان كان رقمى .. وان كان نصيا نقوم 

بوضعه بين القوسين وبين علامتي تنصيص ıiكون‏ 5ذ ) Remove ( "MyKey"‏ 


خاصیيه sع‌uں۷a1‏ 
لعرض قيمه معینه داخل اجزاء الهایبرد دیکشنری 


خاصیه ءرع») 


خlاصڍ4 ContainsValue‏ 
تمكننا فى البحث داخل الهايبرد ديكشنرى عن قيمه بيان معين بداخل اجزائها 


خlصي4 ContainsKey‏ 
تمکننا فی البحث داخل الهایبرد دیکشنری عن مفتاح خاص بقیمه معینه بداخل اجزائها 


خاصيە4 Count‏ 
تمكننا بعرض عدد البيانات التى بداخل الهايبرد ديكشنرى 


والأن سوف نتعرض الى مثال يوضح عمل الخواص او الميثود الخاصه الهايبرد ديكشنرى 
تابح معى ... 


Imports System.Collections.Specialized 
Module module1 


Sub Main() 
Dim HD As New HybridDictionary 
HD.Add(1, "Mouse") 
HD.Add(2, "Keyboard") 
HD.Add(3, "Sound") 


Console.WriteLine(" 

Dim K As DictionaryEntry 

For Each K In HD 
Console.WriteLine(K.Key) 

Next 


Console.WriteLine(" 

Dim V As DictionaryEntry 

For Each V In HD 
Console.WriteLine (V.Value) 

Next 


Console.WriteLine(" 
Dim KV As DictionaryEntry 
For Each KV In HD 
Console.WriteLine("{O0} {1}", KV.Key, KV.Value) 
Next 
Console. ReadKey( ) 


End Sub 
End Module 


الشرح 


اولا : قمنا باستيراد دوال ال 65 1e1‏ لنستطیع استعمال الهایبرد دیکشنری 
عن طريق الكود 


Imports System.Collections.Specialized 


ثم قمنا بحجز متغير من نوع المصفوفه ليست ديكشنرى 
Dim HD As New HybridDictionary‏ 


ثم قمنا باضافه ثلاث بيانات فقط بداخل الهايبرد ديكشنرى ففى هذه الحاله تلقائيا سوف تقوم 
بالعمل مع اللیست دیکشنری اما ان قومنا بتزوید البیانات حتى تزايدت عن عشره بيانات كما 
قولنا سوف تتعامل على انها هاش تيبل 


HD.Add(1, "Mouse") 


HD.Add(2, "Keyboard") 

HD.Add(3, "Ssound") 

ثم قمنا بعمل دواره تقوم بعرض مابداخل اللیست دیکشنری من مفاتیح 
Dim K As DictionaryEntry‏ 

For Each K In HD 

Console.WriteLine(K.Key) 

Next 


قمنا بحجز متغير من نوع البيانات التى بداخل الهايبرد ديكشنرى 
ثم بدأت الدواره .. تدور طالما كان هذا المتغير يحوى بيان من بيانات الهايبرد ديكشنرى 
وفی کل لفه تقوم بعرض مفتاح حتی تقوم بعرض کل المفاتیح فینتهی عمل الدواره 


ھا دان ار کان ی مل هرا کرک © کے ایرد کو ی ن کے ۶ اع ان 
فهمت الدواره السابقه فستقوم بعمل هذه الدواره بمفردك ... جرب وقم بعملها بمفردك دون 
النظر الى أكوادها اؤ الاطلاع عليها .., قان تعثرت فى عملها تابح مع 


Dim V As DictionaryEntry 
For Each V In HD 
Console.WriteLine(V.Value) 
Next 


قمنا بحجز متغير من نوع البيانات التى بداخل الهايبرد ديكشنرى 

ثم بدأت الدواره ..رتدور طالما كان هذا المتغير يحوى/ بيان من بيانات الهايبرد ديكشنرى 
وفى كل لفه تقوم بعرض صنف حتى تقوم بعرض كل الأصناف التى بداخلها فينتهى عمل 
الدواره ٣‏ 


فما ذا ان اردنا ان نقوم بعمل دواره تعرض کل محتویات الهایبرد دیکشنری من قیم ومفاتیح کل 
مفتاح بجواره القيمه الخاصه به ؟ الطريقه هى نفس الطريقه التى قمنا بعملها فى الليست 
Dim KV As DictionaryEntry‏ 

For Each KV In HD 


Console.WriteLine("{O0} {1}", KV.Key, KV.Value) 
Next 


قمنا بحجز متغير ja‏ illوعDictionaryEntry‏ 

هذا النوع هو نوع يحوى مابداخل المصفوفات التى من النوع الديكشنرى وهو يحوى مابداخلها 
من مفاتيح واصناف . 

ثم بدت الدواه .. تدور طالما کان هذا المتغیر یحوی بیان کامل من بیانات الهایبرد دیکشنرى 

ولم نقم بالشرط عليه بقیمه صنف او مفتاح . 

وفی کل لفه تقوم بعرض بیان کامل مفتاح وصنف حتی تقوم بعرض کل البیانات فینتهی عمل 

الدواره. 


B1 file//7C:fUsers/ CaptianMalek/ Desktop... lalla BESÎ 


أنتهت الوحده الثامنه : 


الوحده التاسعه - 


NAME VALUE COLLECTION 


النيم فاليو كوليكشن ...هى ايضا من انواع الكوليكشن ولكنها تختص بجزء بداخل الكوليكشن 
يسمى Specialized.‏ 

لذلك لابد عند استعمالها استيرادها عن طريق الكود 
Imports System.Collections.Specialized‏ 

ولها استعمال مختلف عن ما قبلها من انواع المصفوفات فى الكوليكشن .. ويعد لها اهميه كبيره 
فى السوفت وير الضحم... فهى تقوم بعمل تصنيف لبياناتها على شكل فئات .. فلو تخيلنا مثلا 
استخدامها فى سوفت وير لمعرض سيارات .. فان كان فى المعرض نوع معين من العربيات 
وله اکثر من اصدار فیمکننا استخدامها فى تصنيف كل نوع وكل اصدار من هذا النوع على 
شكل فئات . وهى لا تقبل الا البيانات النصيه فقط فى المفاتيح والأصناف . 

فهى تشبه الر٣ة 01٤٤10٣‏ ۸١1٣ء‏ فى هذه الخاصيه 


الخاصيه ل۸ 
هذه الخاصیه تمکننا من اضافه بیان داخل النیم فالیو کولیکشن 


Remove ( ) الخاصي4‎ 

تمكننا هذه الخاصیيه من مسح بیان معین داخل اجزاء المصفوفه نیم فالیو کولیکشن ویکون 
المسح بدلاله المفتاح نقوم بوضعه بين القوسين وبين علامتي تنصيص فيكون هكذا 

Remove ("MyKey" ) 


GetValues a4يصاlخنl‎ 

لعرض القيم التى بداخل النيم فاليو كوليكشن من اصناف 
الخاصیه ءرم۸11)۸ 

لعرض کل القیم التی بداخل النيم فالیو كولیكشن من مفاتیح 


ل کان برح ن الك راح ار اا ا 
تابع معى ... 


Imports System.Collections.Specialized 
Module module1 
Sub main() 


Dim NVC As New NameValueCollection 
NVC.Add("Fiat", "Fiat 128") 
NVC.Add("Fiat", "Fiat 132") 
NVC.Add("Fiat", "Tempra") 
NVC.Add("Seat", "Ibiza") 
NVC.Add("Seat", "Lion") 
NVC.Add("Seat", "Kortoba") 
NVC.Add("Toyota", "Corola") 
NVC.Add("Toyota", "Yaris") 
NVC.Add("Hyundai", "Accent") 
NVC.Add("Hyundai", "Elantra ") 
NVC. Remove("Fiat") 


Console.Write("Enter The Kind Name Of Car: ") 
Dim S,= Console. ReadLine 

Console.WriteLine (NVC(S) ) 

Console. ReadKey( ) 


Console.WriteLine(" 

Dim KindyAs ,String 

For Each Kind In NVC.GetValues("Fiat") 
Console.WriteLine(Kind) 

Next Kind 

Console. ReadKey( ) 


Console.WriteLine("™ 

Dim K As String 

For Each K In NVC.Al1Keys 
Console.WriteLine(K) 

Next K 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 


اولا : قمنا باستيراد دوال ال 165 )11ect‏ لنستطیع استعمال النیم فالیو کولیکشن 
عن طريق الكود 


Imports System.Collections.Specialized 


ثم قمنا بحجز متغير من نوع المصفوفه نیم فالیو كولیكشن 


Dim NVC As New NameValueCollection 


ثم قمنا باضافه بعض انواع السيارات على اعتبار اننا نقوم بعمل سوفت وير لمعرض سيارات 
فقمنا باضافه بعض انواع السيارات والموديلات الموجوده منها فى هذا المعرض 
NVC.Add("Fiat", "Fiat 128")‏ 

NVC.Add("Fiat", "Fiat 132") 

NVC.Add("Fiat", "Tempra") 

NVC.Add("Seat", "Ibiza") 

NVC.Add("Seat", "Lion") 

NVC.Add("Seat", "Kortoba") 

NVC.Add("Toyota", "Corola") 

NVC.Add("Toyota", "Yaris") 

NVC.Add("Hyundai", "Accent") 

NVC.Add("Hyundai", "Elantra ") 


امان الفاح مکرر فی اکل من بیان ٠‏ رهد خاضية تفرد بها التبم اير كركشن قاف 
قمت بتكرار المفتاح تعتبره تغديل على ماقبله .. 
فهنا قمنا باافة اع الا او کو ع اک م یل او ادر 


فماذا لو أراد صاجب المعرض ان يستعلم ,عن الموديلات الموجوده من نوع معين عنده؟ 


Console.Write("Enter The Kind Name Of Car: ") 
Dim S = Console.ReadLine 
Console.WriteLine(NVC(S)) 


قمنا بأمر الكونسول ان يعرض رساله لصاحب المعرض يأمره فيها بأدخال نوع السياره المراد 
الاستعلام عن موديلاتها او اصدارتها. 

ثم وضعنا قيمه ماكتبه صاحب المعرض فى متغير .. اذا اصبح هذا المتغير يحمل قيمه مایریده 
صاحب المعرض . 

ثم امرنا الكونسول بكتابه كل الاصدارات المسجله لهذا النوع .. اذا كيف يتم عمل هذا داخل 
المصفوفه ؟ .. تقوم المصفوفه بالدوارن حول محورها وتأخذ القيم المشتركه فى مفتاح معين اى 
ان كتب صاحب المعرض فيات .. درات حول محورها لتأخذ كل ماهو يخص المفتاح المسمى 
فيات ثم تقوم بعرضه على شاشه الكونسول كما امرناها . 

اعتقد ان العمليه اصبحت سهله الاستيعاب الأن !! 


السؤال الأن .. هل يوجد فكره اخرى لعمل الكود السابق ؟ بدواره مثلا ؟ هل تستطيع فعل ذلك ؟ 
بالطبع لو تالق تركيزك معى فى الدروس السابقه ستعرف كيف يتم فعل ذلك بدواره .. 
Ea E TS es cc. EEK‏ 
وليس صعا ا ا ا ا ا ال ے الال ۔ 


Dim Kind As String 

For Each Kind In NVC.GetValues("Fiat") 
Console.WriteLine(Kind) 

Next Kind 


هذه فکره دواره بسیطه تقوم بالدوارن حول مودیل فیات وتکشف مابه من اصدارات 

قمنا بحجز متغير فى الميمورى من النوع النصى 

وبدأت الدواره تدور على اساس وجود هذا المتغير فى الفيم الخاصه بالموديل فيات فى كل لفه 
ففى كل لفه تقوم باللف حول محور المصفوفه نيم فاليو كوليكشن حتى تستنبط منها كل العوامل 
المشتركه فى المفتاح او الموديل المسمى فيات والذى قمنا بتحديده لها .. ثم تقوم بعرضه على 
شاشه الكونسول. 

فكره بسيطه ؟ ولكن هذا الدواره تابته النتائج اى انها تدول حول محور الموديل المسمى فيات 
فقط .. فهل هذا منطقى ؟ هل صاحب المعرض سوف لن يستعلم الا عن موديل فيات ؟ اعتقد 
انك لو قومت بتقديم برنامج مثل هذا لصاحب معرض .. جميل ان قام بطردك فقط !!! 

اذا كيف نجعل صاحب المعرض او مستخدم البرنامج يقوم بتحديد النوع ؟ 

بكل بساطه ... قبل ان ننشأ الدواره نقوم بحجز متغير هذا المتغير يكون من النوع النصى لأننا 
نعلم ان المصفوفه نيم فاليو كوليكشن لاتقبل الا النصوص فقط . 

ثم نأمر الكونسول ان يأمر المستخدم بكتابه اسم الموديل المراد البحث عنه ونضع قيمه ما كتبه 
المستخدم فى هذا المتغير النصى ... ثم عند امر العرض نضع قيمه المتغير بدلا من كلمه فيات 
فى الدواره السابقه .. ان لم تصل الفكره اليك فدعنى اكتب لك الأكواد لتضح اليك اكثر . 


Console.Write("Enter The Model Where You Like To Query : ") 
Dim Ki As String = Console.ReadLine 

Dim Kind As String 

For Each Kind In NVC.GetValues(Ki) 

Console .WriteLine(Kind) 

Next Kind 


ذا قت ا کل ا ا غل الک د الق ائ فت كدر مر حمل فة مار دة 
المستخدم ثم امرت الكونسول فى كل لفه ان يعرض القيم الخاصه بما ادخله المستخدم. 


سؤال اخر .. ماذا لو اراد صاحب المعرض ان يعرض كل الأنواع الموجوده عنده من 
سیارات؟ ای فیات مثلا وتویوتا وهیونداى .. الخ فكيف يتم ذلك ؟ تابع معى 

لاتفزع من شكل السؤال او الطلب فهو بكل بساطه يريد عرض الانواع الخاصه بالسيارات 
الموجوده فى المعرض .. اين تسجل هذه الأنواع ؟ فى المصفوفه مكان المفتاح جميل هل هو 
صعب ان تقوم بعرض كل المفاتيح الموجوده فى المصفوفه ؟ لقد قمنا بعرضها مسبقا فى كل 
المصفوفات السابقه وكانت الفكره بسيطه جدا ... ولكن هذه المصفوفه يوجد بها تكرار فى 
المفاتيح فهل عند العرض سوف تقوم بعرض النتائج مكرره ؟ بالطبع لا هى تقوم تلقائيا بعمل 
ڄc stn‏ لمفاتیحها لکی لاتعرض بطریقه مکرره. 

اذا دعنا نری کیفیه عرض المفاتیح فی النیم فالیو کولیکشن . 


Dim K As String 

For Each K In NVC.Al1Keys 
Console.WriteLine(K) 

Next K 


قمنا بحجز متغير من النوع النصى 
وقومنا بعمل دواره تقوم بعرض كل المفاتيح الموجوده فى المصفوفه نيم فالیو كولیكشن فى كل 
لفه حتى تنتهى الدواره من عرض كل مفاتيح المصفوفه فيتنهى عملها 


اعلم عزيزي الطالب!!! 

| ن الدواره السابقه قائمه على العرض من خلال الميثود او الخاصيه التى تسمى ءرم)۸11 
هذه الخاصيه او الميثود هو تلقائيا يقوم بفلتره المفاتيح قبل عرضها بحيث لا يقوم بعرضها 
مکرره وهو مانوهنا اليه مسبقا. 


انظر الى نتائج الأكواد السابقه 


e‏ و س | | س | e e‏ و 


ا س م بح م و ا ع م ی وه ورد و 


Fiat 


Loop 
1 ¥ 


here You Like To Query 5 Toyota 


- الوحده العاشره‎ 
GENERIC COLLECTION 


الجنيرك كوليكشن .. هوليس بمصفوفه ولا يحمل خواص المصفوفات .. ولكن هو عباره عن 
کلاس داخل الکولیكشن يسمى جنيرك ... فما هی فائدته او ماهو عمله ؟ 

فائدته كبيره جدا وتظهر فى المشاريع الضخمه التى تحمل البيانات بالالاف ... حيث انه يجعلك 
تحدد نوع الداتا الداخله لأى مصفوفه حيث انك اذا حددت هذه الداتا فلايمكنك بيان من نواع اخر 
داخلها غير المحدد ... بطريقه اوضح تخيل معى ماذا كنا نفعل لحجز مصفوفه مثلا من النوع 
gı‏ ؟ Dim QU As New Queue Jgقتi li‏ 

معنى هذا الكود انك قمت بحجز مخزن فی المیموری نسخه من المصفوفه کيو يحمل 
خصائصها كامله .. ولكن يممكننى داخل هذه المصفوفه الأن ان اسجل بها اى نوع من انواع 
الداتا صحيح ؟ 

انك عندماقمت بحجز هذا المخزن فى الميمورى هو لم يعلم اى نوع من انواع الداتا سوف تدخل 
فی المصفوفه فهو یظل معلقا حتی تعطى له نوع الداتا ثم يقوم بحجزها فى الميمورى بنوعها 
كلنا نعلم ان هذا حمل على الميمورى وضياع لوقت ولكن لن نشعر به فى اظل البيانات 
الصغيره . 

ولكن يمكنك الان تحديد نوع الداتا او البيانات التى يجب ان تدخل فى المصفوفه عن طريق 
استخدام الجنيرك كوليكشن . فتخيل ان قمنا بحجز مخزن بالجنيرك کولیکشن كيف ستکون 
الطريق4 ؟ ) Dim / QU AS New/Queue (Of, String‏ 

تخيلت ماذا فعل الجنيرك فى هذا الكود ؟ هو حدد ان يكون نوع المصفوفه من النوع النصى 
ولن يسمح بدخول النوع الرقمى او المزدوج او اى داتا من الانواع الأخرى . 

والأن نستطيع ان نقوم بتعريف الجنيرك .. هو كلاس من المكتبه كوليكشن يسمى جنيرك ولذلك 
عند استخدامه لابد من استیراده عن طریق الکود 
Imports System.Collections.Generic‏ 

وهو وسيله للتسهيل فى الميمورى عند حجز مصفوفه من نوع معين . 


والأن هيا بنا نأخذ مثال يوضح ماقمنا بشرحه:- 


Imports System.Collections.Generic 
Module module1 


Sub main() 


Dim QU As New Queue(Of String) 

QU. Enqueue(5) 

QU. Enqueue(5) 

Console.WriteLine (QU. Dequeue + QU.Dequeue) 
Console. ReadKey() 


Dim QU2 As New Queue(Of Integer) 

QU2. Enqueue (10) 

QU2. Enqueue (20) 
Console.WriteLine(QU2.Dequeue + QU2.Dequeue) 
Console. ReadKey( ) 


End Sub 


End Module 


الشرح 


اولا : قمنا باستیراد دوال ال Co11ec†100s‏ لنستطيع استعمال الجنيرك كوليكشن 
عن طريق الكود 


Imports System.Collections.Generic 


ثم قمنا بحجز مصفوفه من النوع کیو ولكن على شرط انها تحجز فى الميمورى انها سوف 
تتعامل مع بياناتها على اساس انها من النوع النصى فقط .. لمعرفه كيفيه عمل الكيو بالتفصيل 
راجع الوحده الثانيه 

Dim QU As New Queue(Of String) 


لك ان تتخيل الفرق بين طريقه حجزها بالجنيرك وطريقه حجزها بالطريقه العاديه ولقد شرحنا 
ماهى ميكانيكيه الععلهااطو قان فى اول لوده جر لوا انك ةط هتيد الكلاس الخاص 
بالجنيرك لم تستطيع حجز المصفوفه على هذا الشرط ٣1٣٤ء‏ 0۴ 


تتت تفكيو ك ورد اكان 
ثم قمنا باضافه بياناتامن النوع الرقمى داخل المصفوفه ... 


QU. Enqueue(5) 
QU. Enqueue(5) 


كيف هذا ؟ انت قولت لنا انك قومت بحجزها على اساس انها نصیه ولیست رقمیه ثم قمت 
باضافه بيانات من النوع الرقمى فكيف ستتعامل معها المصفوفه الأن ؟ هل سيتوقف البرنامج 
عن العمل ام ماذا سيفعل الأن دعنا نقوم بأختبار المصفوفه كيف ستتعامل مع البيان الذى قمنا 
بادخاله 


ثم قمنا بعمل كود يقوم بجمع البيانات التى قمنا بادخالها 


Console.WriteLine (QU. Dequeue + QU. Dequeue) 


لنقوم بتجربه المصفوفه ونلاحظ الناتج هل سيتوقف ام سيكمل وعلى اى اساس. 
شاهد الناتج ف الصوره التاليه - 
ع کت | A file CUsers/CaptianMalek...‏ 


الناتج من جمع 5+5 =55 

هل هذا صحیح ؟ هل 55=5+5 ؟ 

بالطبع هو غير صحيح فى حاله الرقمى اما فى حاله النصى فهو صحيح وهذا يؤكد للك أن 
المصفوفه تتعامل مع البيانات بشكل نصى وهذا مانحن نريده او قمنا بتحديده فى المثال .فلماذا 
نحن متأكدون من ذلك ؟ 

لأن النوع النصى عنذما يقوم بالجمع فهو يقوم بوضع الأجزاء بجواز بعضها وهذا مايطلق عليه 
alae‏ اأconcatenation‏ 

او التسلسل وهى تحدث فى حاله النصى ولا تحدث فى الرقمى 

ي ي 

Malek + saber = Malek saber 

5+5 =55 

10+100 

اما ما يحدث فى الحاله الرقميه 

یطلق عليه عملیھ الوں ۲P1‏ 

او الجمع بالطريقه الحسابيه المعتاده 

مثال"- 

5+5=10 

10+10=20 


ثم قمنا بعمل مثال أخر ولكن قمنا بتحديد نوع التعامل مع الداتا داخل المصفوفه يكون رقمى 
فقمنا بحجز مخزن نسخه من المصفوفه کيو 

Dim QU2 As New Queue(Of Integer) 

على شرط ان يتعامل مع البيانات التى ستدخل للمصفوفه على انها رقميه 

ثم قمنا باضافه بيانات رقميه داخل المصفوفه 


QU2. Enqueue (10) 
QU2.Enqueue (20) 


ثم امرنا شاشه الكونسول ان تعرض ناتج جمع البيانات التى قمنا بادخالها فى المصفوفه 


Console.WriteLine(QU2.Dequeue + QU2.Dequeue) 
فكان الناتج كما فى الصوره التاليه‎ 
E file /C/Users/CaptianMalek/... al EE ES 


هذا ناتج جمع البيانين مابداخل المصفوفه 10و20 

30=20+10 

هذا صحيح اذا تأكدنا انها تتعامل مع البيانات على اساس انها رقميه 

حتى لو قومت بوضع هذا البيان بين علامتى تنصيص متل البيان النصى فهى ستتجاهل 
وقم بالتجربه بنفسك ولاحظ النتائج. 


اكت الر كه الحاقر هة : 


الوحده الحاديه عشر والأخيره فى الكوليكشن :- 
LIKED LIST‏ 


اللينكد ليست .. تعتبر اللينكد ليست نفس عمل الأراى ليست التى قمنا بشرحها فى الوحده الأولى 
ولكن الأختلاف هنا ان اللينكد ليست هى ميتود من الكلاس جنيرك الذى قمنا بشرحه فى الوحده 
السابقه ومعنى انها من الجنيرك اذا لابد من تحديد نوع الداتا التى سوف تتعامل معاها داخل 
المصفوفه كما شرحنا ذف اك ` 

الأختلاف الاخر انها تحتوی على خواص جدیده غير موجوده فى الأراى ليست مثل التسجيل 
قبل بيان معين او بعد بين معين فمثلا ان قمنا بتسجيل بيان فى البدايه وتسجيل بيان فى النهايه 
نستطيع تسجيل هذا البيان قبل بيان فى المنتصف أو فى الأول على حسب مانحدد له. 

ايضا عندما نقوم بعرض النتائج على شاشه الكونسول نستيطع عرض عنصر قبل عنصر اخر 
باسلوب اوضح نتحكم فى طريقه العرض من حيث ترتيب الأصناف التى بداخل اجزائ 
المصفوفه لينكد ليست . اما فى الأراى ليست لم نستطيع فعل ذلك كل ماكان علينا ان نعطيها 
رقم الأندكس وتعطينا البيان الخاص بهذا الرقم .. قم بمراجعه الوحده الأولى 

ولكى نستطيع استخدام اللينكد ليست لابد من استيرادها من الجنيرك بنفس الطريقه التى نستورد 
بها الجنيرك عن طريق الكود :- 


Imports System.Collections.Generic 


بعض الخصائص او المیثود الخاصه بانیم فالیو کولیگشن 


الخاصيه م۷a1u‏ 
هذه الخاصیه تمکننا من معرفه قیمه بیان معین بداخل اللينكد ليست 


۴٣st الخاصیه‎ 

هذه الخاصيه تمكننا من معرفه البيان المسجل فى الجزء الأول بداخل اللينكد ليست 

ويمكننا استخدامها فى العرض على شاشه الكونسول اول بيان داخل المصفوفه عن طريق الأتى 
Console.WriteLine(LL.Frist.Value)‏ 

اى قم بعرض قيمه مافى البيان الأول بداخل اللينكد الليست 


الخاصيه خءجا 

هذه الخاصيه تمكننا من معرفه البيان المسجل فى الجزء الأخير بداخل اللينكد ليست ويمكننا 
استخدامها فى العرضن على شاشه الكونسول اخر بيان داخل المصفوفه عن طريق آلأتى 
Console.WriteLine(LL.Last.Value)‏ 

ای قم بعرض قيمه مافى البيان الأخير بداخل اللينكد ليست 


الخاصيa AddFrist‏ 
هذه الخاصيه تمكننا من اضافه بيان داخل اللينكد ليست ويكون البيان فى اول جزء بها 


الخاصيه AddLast‏ 
هذه الخاصيه تمكننا من اضافه بيان داخل اللينكد ليست ويكون البيان فى اخر جزء بها 
ویمکن استخدامها اکثر من مره فی المصفوفه فاذا استخدمت بطریقه تکراریه فی نفس 

المصفوفه فانها تقوم باضافه البيان بعد اخر بيان فيها . 


AddAFter aيصاخll‎ 

هذه الخاصيه تمكننا من اضافه بيان داخل اللينكد ليست ويكون البيان بعد بيان معين نقوم 
بتحدیده فتخیل معی انی ڌyوڻت‏ ) LL.AddAfter(LL.FFİS, "Hello"‏ 

اى قم باضافه البيان ٥110‏ بعد البيان المسجل فى أول المصفوفه 


AddBefore 4يصاخll‎ 

هذه الخاصيه تمكننا من اضافه بيان داخل اللينكد ليست ويكون البيان قبل بيان معين نقوم 
بتحدیده فتخیل معی انی قوٺٽ LL.AddBefore(LL.Last, "H1e110")‏ 

اى قم باضافه البيان ٥1 1٥‏ قبل البيان المسجل فى اخر المصفوفه 


Remove ( ) الخاصي4‎ 

تمكننا هذه الخاصيه من مسح بيان معين داخل اجزاء المصفوفه لينكد ليست وذلك عن طريق 
کتابه اسم البیان المراد مسحه بین قوسین کالاأتی :- 

Remove ("MyItemName" ) 


اlخاصيa RemoveFirst‏ 
تمكننا هذه الخاصيه من مسح البيان الأول فى المصفوفه لينكد ليست 


اlخاصيa RemoveLast‏ 
تمكننا هذه الخاصيه من مسح البيان الأخير فى المصفوفه لينكد ليست 


والأن دعنا نأخذ مثال يوضح كيفيه استخدام اللينكد ليست بألاكواد 
تابح معى ... 


Imports System.Collections.Generic 


Module module1l 
Sub main() 


Dim S() = {"Nour", "Malek", "Shafee", "Salma"} 
Dim LL As New LinkedList(Of String) (sS) 


Dim I = LL.First 

Do While I IsNot Nothing 
Console.WriteLine(I1.Value) 
I = 1.Next 

Loop 

Console. ReadKey( ) 


End Sub 
End Module 


الشرح 
اولا : قمنا باستیراد دوال ال 0116165 لنستطیع استعمال اللينكد ليست 
عن طريق الكود 


Imports System.Collections.Generic 


ثم قمنا بحجز مصفوفه عاديه ووضعنا بأجزائها بعض البيانات النصيه 
Dim S() = {"Nour", "Malek", "shafee", "Ssalma"}‏ 


ثم قمنا بحجز مصفوفه من النوع لينكد ليست على شرط انها تتعامل مع البيانات من النوع 
النصى فقط .. ثم امرناها ان تأخذ محتويات المصفوفه العاديه 

Dim LL As New LinkedList(Of String)(S) 

اعلم انه لابد من تحديد نوع البيانات التى لابد ان تتعامل معها المصفوفه لينكد ليست 

لأنك لو لم تقم بتحديدها لن تعمل معك . 

ومعنى اننا أمرناها ان تأخذ محتويات المصفوفه العاديه .. هذا يعنى وكأنك قمت بعمل اضافه 
داخل المصفوفه لينكد ليست واضفت بها نفس الاجزاء التى قمت باضافتها فى المصفوفه العاديه 


تم قمنا بعمل دواره تقوم بعرض محتويات المصفوفه لينكد ليست 


Dim I = LL.First 

Do While I IsNot Nothing 
Console.WriteLine(I.Value) 
I = 1.Next 

Loop 


قمنا بحجز متغير ووضعنا بها اول بيان فى المصفوفه لينكد ليست 
ا کا در کرن طا ااسعر غو غاے ا ب یغ کن اک ت 


تقون افوا دوک کل ف کے ب کی اع اتی د اکل تقر کے بل الت ال اکر 
عنصر فى المصفوفه فینتهى عمل الدواره بعرض كل محتويات اللينكد ليست 


شاهد النتيجه فى الصوره التاليه 
A file IC: Users’ CaptianMalek/ Desktop... asla. ES‏ 


انتهت الوحده الحاديه عشر والاخيره فى الكوليكشن : 


الوحده الثانيه عشر والأخيره فى هذا الجزء:- 
COMPREESION (ZIP) & DECOMPREESION‏ 


الضغط بالصيغه م71 وفك الضغط عن الملفات عن طريق الكود 

ستعلم فى هذه الوحده كيف نقوم بضغط الملفات وفك الضغط عنها وذلك بأستخدام كلاس 
بداخل مکتبات الانبوت اوت بوٽ خInPutOuEPu‏ 

التى قمنا بالحديث عنها فى الجزء الأول من هذا الكتاب. 

هذا الکلاس يسمیى Comprees i0‏ 

اذا لابد قبل استعمالها استيرادها فوق الموديول او مايسمى بمنطقه التصريحات العامه عن 
طريق الكود التالى :- 

Imports System. I10.Compression 

وايضا سوف نقوم باستخدام المكتبه اJأسlي4 InputOutPut‏ 

لكى نستطيع انشاء ملف بالكود لنقوم بضغطه والتجربه عليه وذلك عن طريق الكود التالى:- 
Imports System. IO‏ 


ملحوظه!! 

ان كنت لاتتذكر كيف يتم العمل على هذه المكتبات من فضلك راجع الجزء الأول من هذا 
الكتاب فهو يتكلم بالتفصيل عن هذه المكتبات وكيفيه انشاء فولدرات وملفات والكتابه بداخل 
الملفات ومسح ونقل الملفات من اماكن معينه الى اماكن (اخرى .... الخ . 


والأن دعنا نبداً فى كتابه الأكواد تابع معى المثال التالى لانشاء الملفات وضغطها:- 


Imports System. IO.Compression 
Imports System. IO 


Module module1l 


Sub main() 


Dim GZIP As New GZipStream(File.Create("C:\Test.Zip"), 
CompressionMode. Compress) 


Dim SW As New StreamWriter (GZIP) 


For i As Double = 0 To 100 
SW.WriteLine("He1llo") 
Next 


SW.Close() 
GZIP.Close() 


Console .Writeline("Done" ) 
GConsole.WriteLine("Press Enter If You Like To Decomprees This File") 
Console. ReadKey( ) 


' لفك ضغط الملف‎ 
Dim Zip As New GZipStream(File.OpenRead("C:\Test.Zip"), 
CompressionMode .Decompress) 


Dim SR As New StreamReader (Zip) 
Console.WriteLine(SR.ReadToEnd) 
Console. ReadKey( ) 


Zip.Close() 
SR.Close() 


End Sub 
End Module 


الشرح 


اولا : قمنا باستیراد دوال ال غ ں٥٤ 0u‏ ںمہ] لنستطیع استعمال الکومبریشن 
عن طريق الكود 


Imports System. IO.Compression 


اولا : قمنا باستيراد ال ut 0 ut Put‏ مہ1 لنستطیع استعمالھا فی انشاء الملفات 
عن طريق الكود 


Imports System. IO 


ثم قمنا بحجز متغير من النوع ٣٠۵۳‏ ٤خءم6721‏ الذى يتعامل مع الملفات المضغوطه 
Dim GZIP As New GZipsSstream(File.Create("C:\Test.Zip"),‏ 
CompressionMode. Compress)‏ 


وقولنا له قم بأنشاء ملف مضغوط على السى بالأسم والامتداد م 71. غ۶٥1‏ 

لاحظ ذلك الكود CompressionMode. Compress‏ 

هذا يعنى اي اجعله على مود او نمط الضغط ولابد ان نحدد له المود او النمط الذى سيعمل عليه 
ويمكننا ان نجعله على مود او نمط فك الضغط . 


ثم قمنا بحجز مخزن من النوع ستريم رايتر الذى يقوم بالكتابه داخل الملفات كما شرحنا فى 
الجزء الأول من هذا الكتاب وامرناه ان بكتب داخل الملف المضغوط الذى قمنا بانشاءه مسبقا 
Dim SW As New StreamWriter (GZIP)‏ 


ثم قمنا بعمل دواره بسیطه تقوم بالدوران مائه مره وفی کل لفه تقوم بکتابه کلمه ۳۸٥110‏ 
داخل ا8 80 طط 


For i As Double = 0 To 100 
SW.writeLine("Hello") 
Next 


بعدما ينتهى عمل هذا الدواره يصبح الملف بداخله 100سطر بكل سطر كلمه ١٥11٥0‏ 


ثم قمنا باغلاق المخزن م671 , »> كى لا يكون حملا على الميمورى 
SW.Close()‏ 
GZIP.Close()‏ 


دعنا نذهب الى المسار الأن ونرى هل نشىء الملف فعلا ام لا 
شاهد النتيجه فى الصوره التاليه 


+O + Computer * Local Disk (C:] F* 


Organize ¥ 8 Open Compatibility files New folder 


¥ Favorites Name Date modified Type 


Wl Desktop J apache ee VoT/-Op 1T File folder 


J Downloads : 
ESE TestZip - WinRAR 
15| Recent Places 

هلف الأوامر أدوات المغضلة خبارات الشطبعا 


a STELTIELET] 


Documents E 
e ادان إستخراج إلى تجربة هقالح مطومة | فحص فيروسات‎ 
usic 


E Pictures بای‎ ٠۰۰۰۰۱۷ م2 آرشیف الحجم المستخرچ‎ - 7 E 


الاسم 4 الحجم فوط النوع ثم تعدا E Videos‏ 
Folder‏ 
Homegroup‏ + 


Computer‏ م 
Ë Local Disk (CJ‏ 
Ea Local Disk (D:‏ 
î Local Disk (E:‏ 
gj CO Drive (H)‏ 


) 


محدد ۲۰:۰۰۷ بایت في ١‏ مف العجعوع ٠۰:۰۰۷‏ بايث ي ١‏ ملف 


th Network Ee mysql.exe ٣ م‎ Application 25,836 KB 
AF File 69 KE 
Ye OENpa TET __ WINRAR 71° رك‎ 1KB 


۳ Test.Zip Date modified: FITA p +3 Date created: FITIIA Aa 11:1 
WinRAR ZIP di Size: 884 bytes 


ادع د کاک اک ها اف 
قم بفتحه عبر ال ل2 ٥٥٤٠ا‏ وشاهد النتيجه . 


شاهد النتيجه فى الصوره التاليه 


IO * Computer * Local Disk (C] F 


Compatibility files New folder 
Name ن‎ Date modified Type 


^| Test - Notepad 
File Edit Format View Help 


R= Open w 


Organize w 


YF Favorites 
Hl Desktop 
B Downloads 


15| Recent Places 


E Libraries 
3 Documents 
ے‎ Music 
[E Pictures هذا هو تتیجه مافعلنه الدواره اضافه مانه سطر‎ 
EE Videos بکل سطر کلیدن|| ع‎ 


8 Homegroup 


jW Computer 
Ê Local Disk (Cı) 
ë2 Local Disk (D:) 
a Local Disk (E: 
ÎÎ CD Drive (H:) 


f Network 
File 


WinRAR Z1 رنف‎ 


EE Test.Zip Date modified: Yee p «E: Date created: YI1/ITIIA p 1:71 
WinRAR ZIP رتف‎ Size: 139 bytes 


والأن دعنا نكمل باقى المثال لنشرح كيف نقوم بفك الضغط عن الملف بالكود . 


تم قمنا بحجز متغير من النوع ٣٥٠2۳‏ ٤ءم6721‏ الذى يتعامل مع الملفات المضغوطه 
Dim Zip As New GZipStream(File.OpenRead("C:\Test.Zip"),‏ 
CompressionMode .Decompress)‏ 


وقولنا له قم بفك الضغط عن الملف المضغوط على السى بالأسم والامتداد م 71.خء٥1‏ 
لاحظ ذلك الكود CompressionMode. Decompress‏ 

هذا يعنى اي اجعله على مود او نمط فك الضغط ولابد ان نحدد له المود او النمط الذى سيعمل 
عليه كما قولنا مسبقا. 


ثم قمنا بحجز مخزن من النوع ستريم ريدر الذى يقوم بالقراءه من الملفات كما شرحنا فى 
الجزء الأول من هذا الكتاب وامرناه ان يتعامل مع الملف المضغوط الذى قمنا بانشاءه مسبقا 
Dim SR As New StreamReader (Zip)‏ 

اذا هو جاهز الأن ان يقرا مابداخل هذا الملف المضغوط 
Console.WriteLine(SR.ReadToEnd)‏ 

ثم امرناه ان يقرأً مابداخل هذا الملف حتى النهايه ثم يقوم بعرضه على شاشه الكونسول 
بدون الحاجه لعمل دواره سيقوم بقراءه كل مافى هذا الملف حتى النهايه 

وان كنت لاتفهم كيفيه عمل ستريم ريدر قم بمراجعته فى الجزء الأول من هذا الكتاب 
بعدما ینتهی من القراءه سیعرض الکونسول 100سطر بکل سطر کلمه ٣٥11٥‏ 


َ تابع النتيجه معى فى الصوره التاليه‎ 
BE ' file Ci Users/ Captian Malek/Des... [xor] 


ا 


ثم قمنا باغلاق المخزن م71 ,5# كى لا يكون حملا على الميمورى 


Zip.Close() 
SR.Close() 


والأنا ذا ذهبنا الى المسار ٥:١‏ 
سنجد ان الملف بالفعل فك ضغطه .. كما ترون فى الصوره التاليه:- 


0 
# ¥ ۱ 
1KB 
504 KE 


1KB 


h Fil 


Type 

File folder 
File folder 
File folder 
File folder 
File folder 


File folder 


0 
File fl 


File folder 


TEXT File 


Windows Bal 


WinRAR AP 


Date modified 


New folder 


Oo. * Computer * Local Disk (C] F 


Compatibility files 


Name 


Jj apache 

Al Config.Msi 

J Intel 

@ MSOCache 

ıJ mysqlfront 

lj NewFolder 

J ODBC MYSQL 

J Perflogs 

ıJ) Program Files 
ProgramData 

J TEMP 

J Users 

ıJ) Windows 

|_| nd 

2 BankDB.accdb 

__ | biosinfo 


| Bugs.text 


|_| Open 


LUO,bat 


Organize w 


¥ Favorites 
Hl Desktop 


Downloads 


| Recent Places 


A Libraries 
3 Documents 
۾‎ Music 


[E Pictures 


E Videos 


8 Homegroup 


L1 Computer 
Ê, Local Disk (Cı) 
ıê Local Disk (D:) 
Ea Local Disk (E 
ÎÎ CD Drive (H:) 


i Network 


Test Date modified: Fel/1T/IA p 4T1 Date created: TITIAN ۾‎ 11: 


File Sîze: 68,3 KB 


نهت الوخد الثانة عكر : 


انتھی الجزء الثانى من الكتاب 
EASY BOOK IN FRAMEWORK‏ 


تم الاصدار فى 2012/4/15 
اسأل الله ان تکونو قد استفدتم بما فيه من محتویات .. 
هكذا نكون قد انتهينا بشرح الفريم ورك ويعتبر هذا الجزء الأخير فى شرح الفريم ورك 
وفی الجزء القادم ان شاءِ الله سنقوم بشرح الطريقه المبتكره لهندسه صناعه البرمجيات 
Opject Oriented Programing (OOP) Jھو ll‏ 
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المشاريع المطلوبه فى هذا الجزء:- 

اولا :- 

ا ا دا ف یا ا یا ا ا 
تتعود على طريقه كتابه الأكواد ولكى يصبح ذهنك مستعد لطريق البرمجه وسوق التكنولجيا 


ثانيا :- 

يقوم كل طالب بتطبيق فكره مشرو ع بناءا على ماقمنا بدراسته ويكون هذا المشروع يجمع اكبر 
كم من الأكواد التى قمنا بدراستها .. وكلما كان المشروع يجمع اكبر عدد من الأكواد والخواص 
زاد التقدير لهذا المسرو ع 


ايضا ان خطر ببالك فکره ای مشروع اخری او اعاقه فی تطبیق مثال او کود معین او ان کنت 
تريد تقييم مشروعك قم بمراسلتنا عبر الايميل التالى :- 
Captian.Malek@Gmail.com‏ 


اعلم اخى القارىء 

انك اذا قمت بتطبيق المشاريع المطلوبه منك اعلاه 

انك فهمت الکورس فهما جيدا ولا تيأس ان حدث معك ای خطأ فی تطبيق مثال معين مهما 
كانت جسامة هذا الخطأ فان اكثر الخطائون المتعلمون .. فكلما زادت اخطاءك اعلم بأنك على 
سلم النجاح .. ولا تيأس يوما ما الى ان تصل الى الدرجه الأخيره من هذا السلم 


فى انتظار تقيماتكم للكتاب عبر الايميل 


قام بكتابه وتأليف الكتاب قام بالمراجعه والتصحيح 
المهندس/ ` الاتاد ا ار 


الكتاب مسجل بدار النشر 
والحقوق محفوظه ولا يسمح ابدا بنسخ الكتاب او التعديل عليه منعا للتعرض للمسائل القانونيه 


